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ABSTRACT 


Comparisons have been made between many different methods 
of command input for wargame simulations. Much has been said 
and written about the relative merits of using a visual 
interface, menu and "mouse" input method for command input to 
various wargaming simulations. This document, which is the 
actual command interface program as implemented on an ATARI 
ST desktop computer, is Proof of the Concept that a "visual 
interface" as applied to the Research Evaluation Systems 
Analysis (RESA) simulation, is possible, given the complex 


command structure of RESA. 
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I. INTRODUCTION 


A. BACKGROUND 

The human interface to a computer program has always been 
very important and is the subject of countless’ books, 
studies and other documents. A good interface, one that is 
"user-friendly", has often been the major feature of a 
program, and mes presence has often overcome the 
disadvantages of a mediocre, or in some cases, poor program. 
Additionally, what was a good or excellent interface in the 
past is now frequently archaic and is defined as poor or 
merely satisfactory. When terminology and devices such as 
graphics, color video, icons, windows, mouse input, voice 
recognition, light pens, touch screens, and intelligent 
terminals were unknown or considered exotic, typed text input 
predominated in input methodology r general use. 
Frequently, even when new interface technology became 
affordable, existing systems couldn’t be adapted due to poor 
original program deSign or expense of conversion. 

A poor interface is usually obvious to the user, and with 
perseverance, will be overcome. If the harm caused was only 
user frustration, little would be gained by trying to improve 
an interface. Unfortunately, a poor interface, while perhaps 
being exactly what a computer needs to perform its functions 
correctly, causes a user to perform inefficiently. This is 
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particularly significant because increased user (human) 
efficiency is the primary goal of most computer programs. 
User inefficiencies, while not desirable, Can Һе 
tolerated in many minor or simple applications. It’s uns 
not cost effective to spend large sums of money to create a 
sophisticated interface in those cases. But, if an interface 
is not user-friendly, or to be more precise, "Use 
efficient", the more complex subjects and applications will 
cause disproportionately greater user inefficiencies, making 


it worthwhile to find new ways to enhance the interface. 


B27APEPTLLZ CN 

The subject application of this thesis, Research 
Evaluation Systems Analysis (RESA) simulation, is a wargaming 
simulation utilized by the Naval Postgraduate School to do 
research on battle procedures and techniques, weapons use 
and wargame simulation itself.  RESA operates on the Digital 
Equipment Corporation VAX 11 series minicomputer. User input 
(game commands) is typed text entry, often in response to 
program prompts at VT=100/102 dumb" terminals. RAMTEK 
graphics terminals provide geo-graphic color displays. A 
typical user is a graduate student who has no prior knowledge 
of RESA, and, probably little, or no experience in any form 
of wargaming or computer simulation. Additionally, few have 
any significant experience in interfacing with mainframe 


computers or sophisticated mainframe programs. 


Because of the limited time a typical team of users will 
actually be using RESA, efficiency in interfacing is 
extremely critical. Several factors militate against this 
desired efficiency. 

1. Text Entry Requirement 

All input, no matter how simple or trivial, must be 
typed on a keyboard. Spelling must be exactly correct. 
Since user spelling and typing abilities vary widely, the 
progress of a simulation exercise is often dictated by the 
input speed of a lesser skilled team member. Spelling help 
is available on the input terminal, but frequently requires a 
diversion from the command input sequence. 

2. Command Syntax Knowledge Needed 

While RESA commands are one word, and are usually 
descriptive of the action being directed, they must be 
entered in the correct context. Additionally, sequences of 
commands must frequently be used to accomplish —: 
actions, and the sequence must be exactly correct. These 
sequences do not always lend themselves to easy memorization, 
thus requiring written user guides, or constant diversions 
from the command input sequence to get limited on-line help. 

3. Separate Terminals For Different Functions 

Currently, the users of RESA require a minimum of 
three separate terminals to conduct the simulation. One 
terminal is for user control of the game which provides for 


command input and computer response. Another terminal is 


necessary for display of the various status boards which give 
current game and unit (ships, planes, etc) data. A third 
terminal is used for display of color graphics which provide 
a birds-eye view of the current scenario. If a user wants to 
be informed about a facet of the simulation or enter a 
command, he must physically go to the appropriate terminal 
and interrupt the user at that terminal to conduct the 
desired activity. 

From examination of the above factors, it is evident that 
users spend a considerable amount of time on the wargame 
input process, time that should be spent on the simulation 
strategy. It is to improve this interface, thereby 
increasing user efficiency, that enhanced input methodology 


is constantly being studied. 


II. SYSTEM REQUIREMENTS 


A. HARDWARE 

In selecting the hardware to prove the concept of a 
visual interface as a more efficient method to control RESA, 
several criterion were considered critical to success of the 
eoor of Concept. 

1. Visual Interface Capability 

The system selected would have to be capable of 

iconographics, menus, and other graphics displays. Input 
devices such as the mouse, trackball, joystick, and touch 
tablet, as well as the standard keyboard, must be supported. 
The implication, but not absolute requirement, of this 
required capability is that the system must support "event- 
driven" programming. "Event-driven" is the term used to 
describe the computer”s (both hardvare and softvare) SEES 
of handling other than typed text input. It is most often 
used in reference to mouse/menu capabilities, as implemented 
on the ATARI ST and Macintosh computers. 

zx chuancederechnotogy 

While some older systems are able to do much of what 

is described in A.1. above, the visual interface is done by 
"brute force" and is frequently stretching the limits of 
that system's capability. State-of-the-art technology means 
that the system has been designed, and therefore optimized, 
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for the display requirements stated above. An advanced 
technology system would also provide for expansion more 
easily than a system already dated. 

3. Memory 

Graphics require large amounts of memory and high 
machine speed to produce good displays. A minimum of one 
megabyte of memory would ensure that, for this application, 
memory limitations were not a factor. Future system 
expansion would also be facilitated. 

4-uu Color” Dale” 

For screen displays that are mostly text, color vould 
not be necessary, but vould greatly enhance the interface. 
To allow creation of 100%. graphic displays, such as a 
geographic battle group display, color would be necessary. 

5. Cost 

Finding systems with the above attributes isn't 
particularly difficult; the issue is one of money. The 
system selected must be inexpensive enough to replace the 
existing "dumb" terminals at a reasonable cost. Studies to 
evaluate system cost versus user efficiency are not part of 
this document. Relative system cost is the selection 


crıteria used here. 


B: SOFTWARE 

The software criteria, while much less critical than the 
hardware criteria, must still meet certain standards to 
enable this Proof of Concept to be successful. 
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1. Access To Hardware Potential 
Software must be capable of using all hardware 
capabilities. Emphasis will be on graphics and color, not 
numeric calculations. 
2. Ease Of Use 
Many current languages are capable enough to do 
almost anything asked of them, if enough time and skilled 
programmers are available. For this Proof of Concept, time 
is limited, and professional programmers will not be 
available. 
5. Speed 
Even EE: hardware has been selected to maximize 
graphic displays, the software must execute quickly to fully 
use that capability. 
4. Cost 
The software must be chosen using criteria that 
provide the above software capabilities as inexpensively as 


possible. 


әр THRESDECISITON 

The ST series of computers by the ATARI Corporation was 
chosen to meet the above hardware needs. Various versions 
are available in 500Kb to 4Mb versions, use Motorola's 68000 
chip (16-bit) technology, use Digital Research’s GEM icon / 


menu / mouse operating interface, have high resolution color 


graphics, are readily available across the U.S., and are the 
least expensive systems, by far, that meet the stated 
criteria. 

The software chosen was GFA BASIC, an inexpensive BASIC 
very similar to TURBO-BASIC in the MS-DOS world. It is very 
easy to use, accesses all machine capabilities, and when 
compiled, is faster than PASCAL, and rivals the "C" language 


in Speed of execution. 


III. THE CONCEPT 


A. THE PROBLEM 

Interaction with the RESA simulation using the current 
methodology is quite inefficient. Commands, or sequences of 
commands called orders, are typed in using a keyboard at a 
dedicated "dumb" input terminal. For most typical users, 
this means frequent time-consuming interruptions to obtain 
absolutely correct commands, call signs, weapons names, 
flight and track data, etc., either from written user guides, 
or from a second terminal. In addition to simple spelling 
mistakes, syntax errors are frequently made when forming 
orders. 

In order to keep a using team abreast of the scenario, a 
second (dumb) terminal must be configured as a status board 
terminal, is not available as an input terminal, and requires 
an additional player. 

A third position must be used if a non-textual view of 
the situation is desired. Two Ramtek color graphics monitors 
provide Geotactical Displays which give the user a graphical 
representation of the RESA simulation from an overhead 
perspective, much like a radar PPI display. Unfortunately, 
the Geotactical Display is not controlled at the color 
monitor itself, but at a physically separate (text) input 
terminal. Only one representation at a time is normally 
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available to each of the four user teams. These four 
graphics processes make a substantial burden on the single 
VAX computer which hosts the simulation. Since it isi 
fairly slow process to change and redisplay the Geotactical 
Display, compromises are inevitably made in selecting the 
scale or symbology for display. It is unarguable that the 
graphical representation best suited to prosecute the outer 
air battle is not the one best suited for battle group inner 
missile defense. 

The time loss and distractions that result from use of 
the current interface detract considerably from the user's 
attention to the actual battle simulation decisions and 


RE 


B. THE PROGRESS 

This document is a Proof of Concept of a visual 
interface, menu and "mouse" input method for the RESA 
simulation, and is a logical progression of earlier interface 
Studies. The following is a short synopsis Of ae 
progression of studies leading to this thesis: 

[Manson, 1985]--Conducted experiment to compare speech 
and keyboard inputs to Naval Warfare Interactive Simulation 
System (NWISS, predecessor to RESA) in adverse conditions of 
lighting and noise. While spelling and typing problems may 
be solved by this interface method, the other input factors 


remain unsolved. Additionally, speech recognition input adds 
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ehe “complication of inaccuracies in input due to current 
equipment limitations. 

[Irving, 1986]--Project to use A Macintosh microcomputer 
as a command input terminal for NWISS. Use was made of the 
"windowing" and menu/mouse selection methodology to avoid 
command syntax errors and speed command entry. 

[Sweeney, 1986]--Comparison of a "visual" Macintosh 
interface and voice command input to the standard keyboard 
entry method was made. Continuous voice input was favored 
over ‘the visual interface if training time vas not a 
57 müficant restrietion. 

[LeFever, 1987]--Investigated further the use of volce 
input methods to RESA, using the VOTAN continuous speech 
recognizer. Explored the complications arising from the need 
to categorize the game commands, and the inability to 
establish a tree architecture for correct command structure. 

[Lower, 1987]--Examined enhancement of player input to 
the Joint Theater-Level Simulation (JTLS) by using a visual 
interface method implemented on a desktop microcomputer, an 
Apple Macintosh. Showed the feasibility of coding of a 


prototype interface (in Pascal), and laid out a sample 


program skeletal structure. The input process was 
streamlined somewhat, but coding was aa ft fen 1 t and 
incomplete. 


lal, 


(Adams, 19871--Demonstrated the use of graphics and 
screen menus for the display of command and control 
information on a dedicated color graphics workstation, the 
IRIS. User input to control a simulation was not addressed 
here, but display concepts were evolutionary and menus as 
item selectors were effectively used. 

[Copeland, 1987]--Pursued the concept of the visual 
interface as primary input methodology. Windowing and 
menu/mouse usage, as normally implemented on a Macintosh, was 
applied to the JTLS and Battle Group Tactical Trainer (BGTT) 
user interfaces. The framework for a generic architecture 
for this type of interface was discussed. Desirable features 
of a visual interface were also discussed. 

[Stevens, 1987]--Demonstrated the feasibility о1 
improving and enhancing the user interface of the BGTT by 
developing a visual interface prototype. Code for a small 
subset of the user I/O process was written.  MACTRAN 77, a 
Macintosh version of FORTRAN 77, was used as the language. A 
communications driver was not made available, so actual 
interface with RESA on the VAX was not accomplished. 

All previous programming efforts resulted in incomplete 
work which was innovative, but not a full implementation of 
the visual concept. This Proof of Concept effort is an 
extensive and complete program, which, when interfaced to the 
RESA host computer, promises a fast and efficient interface 


capability not previously achieved. 
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C. THE PLAN 

A full-featured, efficient interface for RESA would serve 
several functions, and should be developed in several logical 
phases. Each of the following functions is currently being 
done, but it takes at least three different terminals to 
5 omplish it. A complete "smart" interface program vould 
handle all of these functions from a single terminal, vith 
ımmediate access to each function through the menu system. 

1. System Operation--The ability for system operators to 
set up and start RESA, and for "umpires" to control 


emulation events. 


5 onnmanğ Input--The ability to quickly create error- 
free command strings. 


3. Communication--The ability to allow actual data flow 
between the user and RESA. 


4. Status Boards--The ability to display the currently 
generated data from the RESA simulation. 


55  ceo-graphics--The ability to display the current 
scenario and/or status of units of the battle group in color 
graphics. 


Time and scope limit this Proof of Concept to Phases 2 


and 3, vith some vork on 1. 
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IV. THE RESA INTERFACE PROGRAM (RIP) 


A. OVERVIEW 

The RIP was designed to be a smart interface between the 
user and RESA. It operates entirely on the ATARI ST as a 
background program, and can not be distinguished by the VAX 
as other than a "dumb" terminal. When implemented as a full- 
featured program, the system operator, during boot-up, will 
be able to easily configure (Figure 1) the terminal according 
to different users’ skill levels. No user access to the 
program code is required or desireable. The - command 
Sequences, or orders, are created in their entirety on the 
ST and then sent to the VAX. 

Although their use was not precluded, no attempt to use 
the RESA error-checking or on-line help capabilities was 
made, as this would unnecessarily complicate the RIP. The 
inherent characteristics of the ST's drop-down menu system 
make on-line help largely redundant, and keyboard entry 


error-checking was handled by the RIP. 


B. PROGRAM OPERATION 

In the current version of the program, the operator is 
presented an interface which runs rapidly, provides error 
checking and a logical sequencing of the events necessary to 
build any required order and send it as an error-free 


product. The code runs very swiftly such that no delay is 
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welcone to the RESA Interface Progran, 







USER TYPE 
A, System operator 
. Experienced user | 
C. New user 


С2Ј (ОЈ 2 


Naval Postgraduate School 





Figure 1 


Configuration display screen. 


generated by the computer interface. Capabilities of the 
ATARI have been used to present windows and boxes which 
remain until a selection has been made. Less hand motion is 
required on the mouse than with previous attempts on the 
Macintosh. The user is free to move from mode to mode at any 
time unless such a move would be counter-productive, in which 
case it is prohibited, and audio cues are generated when 
inadvisable attempts are made. A correct degree of 
automation has been attained considering the requirement for 
alpha-numeric input variability which is high during game 
play and generally unknown in scope at game outset. In 


addition, the work surface is attractive and easy to see. 
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The user sits at a terminal where the RIP is running. 
RESA system operators would normally be the ones to have 
started the system and activated each terminal, but RIP 
initialization on the ST is szmple enough for ordinary USC 

The starting screen display (Figure 2) will providesin: nı. 
Main Menu, one of the three primary control menus. The other 
two are: Force Menu A and Force Menu B. Access to each 
primary menu is available from each other primary menu using 
the "new Menu" menu bar selection. Figure 3 shows the "drop- 
down" menu choices for "new Menu" available during a Main 


Menu screen display. 


Main Y new Menu ASTAB GRAPHICS COMMS UMPIRE 


CANCEL command | ESSE 


Figure 2 


Starting display screen. 
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Main Y MEMCTE ASTAD uu. . UNIS UMP IRE 






FORCE Henu 4 a Maneuvers 1 sensors 1 engagements. 


FORCE Henu 8 » aircraft | submarines 1 force ms = 


404 490 000 000 90 


CANCEL command CT , | EXECUTE command 





Figure 3 


Primary menu selection screen. 


Orders are "built" by successively selecting menu 
headings and using the "mouse" to select desired commands. 
As commands are selected, the RIP branches programmatically 
to ask for necessary data or additional commands. Users are 
directed to make a specific choice from the screen ora 
secondary menu, or to use the keyboard to enter alpha-numeric 
characters. Considerable error-checking is performed if the 
keyboard is used. Aire are being built, orders are 
displayed in a command box at the bottom of the screen as 
shown in Figure 4. When an order is syntactically correct, 


the user is given the choice to Execute or Cancel it. 
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Execution of partial orders is™net allowed, bul Cance Dla as 
at any time is possible by pressing the Control / Shift / 


Alternate keys simultaneously. 


Force fiy new Menu FOR xxx MANEUVERS SENSORS = ENGAGE 


FOR KITTY PROCEED 


Enter course (8-359* True): 234 
Enter distance or er (1-9999 nmi): 3678 
Enter speed (1-9999 kts): 888 


CANCEL command ОТ EXECUTE command | 
FOR KITTY PROCEED 234 5678 888 


Figure 4 


Example of commands built to form an order. 


18 


CHA THE CODE 

The BASIC language allows programmers nearly unlimited 
latitude in program structure, and when programmer discpline 
is minimal, BASIC programs frequently look more like free- 
form art than functional software. To allow others to easily 
understand and enhance the RIP, a rigid structure (Figure 5) 
and logical program flow was used throughout. The program is 
segmented into mainly short, similar procedures.  Repetitive 
functions are contained in common procedures whenever 


possible. The RIP Code is included as Appendix A. 


MAIN PROGRAM 


INITIALIZES VARIABLES AND CALLS MAJN MENU. 


MENUS 


PRIMARY, SECONDARY AND TERTIARY MENUS. 


MENU READ 


BRANCHES TO INITIAL COMMAND PROCEDURE. 


GENERAL 


COMMON & MULTI-USE . INPUT DISPLAY, DATA FLOW. 


COMMAND PROCEDURES 


PROCEDURES SPECIFIC TO COMMANDS. 





Figure 5 


RESA Interface Program Structure. 
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Generally, program flow (Figure 6) is as follows: 
Display a primary menu. 
Wait for menu selection. 
Branch to a menu read procedure. 
Branch to procedure for specific command. 
Follow command "tree" until order is complete. 
Wait to Execute or Cancel order. 


Display a primary menu (back to step 1). 


INITIALIZE 





MENU OR SCREEN 


SEND ORDER TO VAX 


Figure 6 


RESA Interface Program Flowchart 
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V. CONCLUSIONS AND RECOMMENDATIONS 


57 CONCLUSIONS 

The concept to be proven was that an inexpensive color 
graphics microcomputer could serve as an "intelligent" 
terminal for the RESA wargaming simulation. Success depended 
on whether the command structure of RESA could be effectively 
represented in code and implemented on a system meeting the 
aforementioned requirements. The operating program (RIP) 
that has been created generates such an interface which 
operates rapidly, and can incorporate the entire command 
structure for RESA with room for future expansion. In 
addition, the chosen hardware/software combination provides a 
windowing environment which can be used to support all RESA 
player functions on one very cost-effective terminal. 

The program runs very efficiently and demonstrates many 
visual interface criteria developed by previous researchers 
as well as improving on many previous suggestions. The 
concept has been shown to be not only practical, but 
available for use and robust where future changes are 
concerned. While extensive user testing has not been 
attempted, and many enhancements remain unfinished, 
preliminary indications are that considerable user efficiency 
will be gained by use of the user interface developed in this 
paper. 

Za 


B. RECOMMENDATIONS FOR FURTHER STUDY 
In order to bring the process started here to its optimal 
conclusion, and allow the RIP to produce the kind of 
efficiencies that are possible, several additional steps must 
be taken. 
l. Accomplish the data interface with the VAX/RESA system 
and ensure VAX-generated messages are automatically 


displayed in "attention" windows. 


2. Conduct studies of the actual efficiency gain from 
using the RIP; or portions Of mime 


TEE user experiments to fully optimize RHE 
displays and interactive usage. 


Having accomplished the interface, determine the 
techniques required and code changes to route four types of 
RESA information to the same serial port. Then enhance the 
RIP in the following fashion. 

First, write code for display of the ASTABS. Each one 
could be called from a menu and displayed in a separate 
window while still sending orders to RESA. It is even quite 
possible to use the mouse cursor to point directly at ASTAB 
items for input in the command structure, thereby reducing 
the slower keyboard usage even further. New status displays 
could be developed and made a permanent part of the RIP, or 
provisions could be made to allow each user to create his 


own. Test the code and integrate into the RIP. 
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Write code for display of Geo-graphics. Steps to 
enhance the graphics display would be similar to those 
described for the ASTABS. Additionally, unit movement or 
positioning commands could be done as simply as pointing at 
the unit and pointing where you wanted it to go. Features 
like those in microcomputer "paint & draw" programs could be 
included to allow for initial positioning of forces. Test 
the code and integrate into the RIP. 

Write code to create different interfaces for different 
7:5 ` levels of users, i.e., System Operator, Umpire, 
Experienced User, Novice User. This vould allov only the 
commands that the particular user needed to be accessible, or 
various levels of Help to be automatically provided. Test 
the code and integrate into the RIP. 

Add peripheral enhancements. Utility programs Can be 
installed during boot-up of the ATARI ST, and used by simply 
touching the menu bar during RIP operation. A user could 
have instant access to a calculator, notepad, references on 
ships or planes, and/or other useful functions. 

Finally, explore the translation of the RIP to the 
Enhanced Naval Warfare Gaming System (ENWGS) which has been 
selected to replace the Navy's primary wargaming system. Use 
of this concept would greatly reduce the effort needed to 
operate the ENWGS simulation from each of the many terminals 
currently required, and reduce the cost OF system 


requirements. 
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APPENDIX A 
RESA Interface Program Code (RIP) 


HU ordi Ak AA A A ee A ek A AL AE AL AA 214. 25411 411154121 21 11 21 425 411212 4. 2L 4E 1L 2L AAA MH 
AREA ran arena HUI PS WTA TIT TE et te ote Tə TOTANA Ot a0 a0 ta RNAAR T e a 050 
1 A AL AL AL AL LS ZC 3 ZE AL AL A A 23 St eh LL ee mün a варинаныныыыыы ә 
 ТТРТГГУТГИСТТГИТРИ ТИ Т ТРТ Тит ТИт Тит иттти етти ттитттт ит иеитит те 9 cə və nə. TT TTTİTİ TT: 7:1: :11717775 7 Vo 
t 
i MAIN PROGRAM 
t 
1 A аланы о о ә 
“TTTəT TT TT? ıı a TEI TST TT TT TT Te TPT TT Te Te Te ST TE TT TT TT TTT TT TP TP Tf TT To Tr te oe ae at ce Tear tt Tt Te te ve ve or Th Te th Oh oe OP Onn 
1 
' On Break Cont 1 deactivates "break" capability. 
@Init ! for initializing & dimensioning 
(User type ! allows choice of type of user; NOT YET WRITTEN | 
€Save blanks ! saves blank screen areas to use to clear screen after inputs 
CDraw box ! draws Dox for outou String 
CMain_menu ! main menu 
| 
1 A әти 5 1254424252 
TIIV ITT TT IT ST re oe te TTT Te Te Tr vy or ee ab Te eb te et ke te Tİ 10 93 Tİ tə Ph tt te ac de el 1) 80 10 09 OF 12 60 G8 00 01 48 92 00 ot ee 90 10 02 30 da 01 TÜ ae tə 9. ns 11 17 111007 00000 000000 
1 
| MENU PROCEDURES 
1 
1 A m UU AL AL A Laid 
Ta aa ce be Pl 6s Ba Tt Te Se 80 08 of a te 00 1000 sa de 03 la da de ad a alm cn or İkİ 717010 70010. Preis Sareea eer Tr i) 0 70 77 
1 
' Produces dialog box to enter "type" of user; WEE: COMPLETE, this COM 
/ allow various levels of access to the system commands. 
1 
Procedure Jser type 
Cstr$5s"wWelcome to the RESA Interíiace Rrogram." 
Cstr2$="Naval Postgraduate School" 
Deftext 1,0,0,13 
Text 120,50,400,Cstrs 
Deftext 1,1,0,13 
Text 120,170,400 ,Cstr2$ 
Deftext 1,0,0,6 'sn resets text type to normal 
Mtxt$z' USER TYPE A. System operator B. Experinced user C. New muc E 
Alert 2,Mtxt$,1," A BO Gece oO 
Print a 
Clr A 
Return ! (User type 
1 
| MAIN Menu 


Procedure Main menu 


(iCclear middle 


Void Fre(0) ! clean up variables 
Restore Mmain data 
rer 1-0 ADOS O ! set up a loop 
Read 5ar$(1) | read data from data fiəld 
Exit 21 Bars(1)= "5% ' until end of data field 
Next 1 


Bars @)=""' I tail blanks into string 

Бә (141)="" !ı ditto 

Mmain_data: 

Data Main -C, 7? 

2: —-”-- 

n3 1,2,3,4,5,6,'" 

! 

NEE — — — — — — — — – — — — — — — — — — — — — — — — — — — — — — — — — — — 
Data FORCE Menu A -C maneuvers sensors engagements 
NEE EN ---———------- 
Peta PORCE Menu B -C aircraft submarines force comms 

Data 845 — “ııı um us m ue um ue Gm "m (m Ge ue de "m C; o" em e um em gem. em éen wm wem m KK 


LI A57AB -, Bearıng, Classify, CPA, Designate , Drop, Print, Shov,"" 
1 

Data GRAPHICS ,-, Plot, Erase, Center, Radius, Shift, Label, LOB 

Data Mark track, Mark bearing, Unmark track, Unmark bearing 

Data Place, Cancel,"" 

l 


Data COMMS ,-, Inform, Intell, Message ,"" 

1 

Para UMPIRE ,-, Go, Pause, End 

Data Copy, Relocate, Save, Time, Set 

Data Enable, Disable, Expend, Replenish,"" 
Data *** 

| 

Menu Bar$() ! activate menu 
On Menu Key Gosub Help key test 

On Menu Gosub Han menu read 

On Menu Ibox 1,450,142,180,18 Gosub Inbox execute 
On Menu Ibox 2,5,142,170,18 Gosub Inbox. cancel 


Do 
On Menu 
Loop 
Return (2Мајл menu 


l FORCE Menu A 
Procedure Force_menu_a 
@cclear_middle 


Void Fre(0) ! clean up variables 
Firsttime!-True ! allows "Weapons Tight/Free" to register only once 
Restore Fforce_a_data 
For I=0 To 110 I set up a loop 
Read Bar$(1) ! read data from data field 
Exit If Bar$(1)="***" ! until end of data field 
Next I 
Ваг5(1)="" ! tail blanks into string 
Bar$(1+1)="" I ditto 


Fforce_a_data: 
Data Force A-C, 7? 
Data -------- 
peabqcls243 4 5,6, 'l 
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Data new Menu ,-2-2-2-2---29€9---.—"u M —— o 
Data MAIN Menu ^C astab graphics player comms game 

data —— aa ә ә 

Data FORCE Menu B ^C aircraft submarines force comms 

Data on om om um m on "UR WR "UR UR "x Gm UR GM Gn Gn am m om s om om um a SEENEN ... 


Data FOR xxx ,-, Select unit ,'' 

1 

Data MANEUVERS ,-, Course, Speed, Proceed, Station 

Data Search, USE (plan) , Execute (plan) 

Data Enter Orders, Pending Orders , Cancel,"" 

| 

Data SENSORS ,-, Activate , Silence, Blip on, Blip off , DECM on 
Data DECM off , RBOC on, RBOC off , Jam, Cease, Emcon,"" 


Data _ ENGAGE ,-, Weapons МАрур un ac 
Data *** 

) 

Menu Bar$() ! activate menu 


On Menu  Gosub Force menu a read 
On Menu Ibox 1,450,142,180,18 Gosub Inbox execute 
On Menu Ibox 2,5,142,170,18 Gosub Inbox cancel 


Do 
On Menu 
Loop 
Return '(aForce menu A 


| 
| FORCE Menu B 
Procedure Force menu b 

(Cclear. middle 


Void Fre(0) ! clean up variables 
Restore Fforce b data 
For 1-0 To ITO TS ! set up a loop 
Read Bar$(I) ! read data from data field 
Exit If Bars (I) AAN ! until end of data field 
Next I 
Ваг5(1)="" ' tall blanks into string 
Barş(I+1)="" meto 


Fforce b data: 

Iacsehorce B6. 1 

Dato = = 

Data O M 

Data hnev Menu ,----------------s-.-..sn-.--.-—--.—......222 
Data MAIN Menu -C astab graphics player comms game 

Data === «=== “SS a ML a ee 

Data FORCE Menu A -C maneuvers sensors engagements 

Data om s on s om sın o um on sn ən m am on ox mx ou ox ul ə x) c AES a. 


Data FOR xxx ,-, Select unit ,"" 
1 


Data AIRCRFT ,-, Launch ,-, Flight Cmds ,-, Alert, Close 
Data Handover, Open, Orbit, Recall, Recover," 


26 


Data SUBMRINE ,-, Depth, Surface, Periscope , Fire 
Data Mode, Mast, Deploy, Retrieve,"" 


Data COMMS ,-, Commtext , Embark, Report, Circuit,"" 
Data *** 

1 

Menu Bar$() ! activate menu 


On Menu dGosub Force menu, b read 
On Menu Ibox 1,450,142,180,18 Gosub Inbox execute 
On Menu Ibox 2,5,142,170,18 Gosub Inbox, cancel 


Do 
On Menu 
Loop 
Return !GForce, menu, B 


| Designate sub-menu 
Procedure Designate menu 


Menu Kill t## kills menu; to stop use of Execute/Cancel boxes 
Restore Ddesignate data 
For I-0 To 90 ! set up a loop 
Read Bar$(I) ! read data from data field 
Exit If BarS(I)="**X*" t until end of data field 
Next I 
Ваг5(1)="" ' tall blanks into string 
Bar$(1+1)="" b adatto 


Ddesignate data: 

Data Desig -C , 7? 

PR  = 

Pa 2,3,4,5,6,"" 

pas... ,-, Enemy, Friendly , Neutral, Unknown,"" 
Data *** 

Cstr$="select Designation..." 

Print At(39-Int(Len(Cstr$)/2),Ytext$);Cstr$ 


Menu Bar$() ! activate menu 
On Menu Gosub Designate menu read 
Do 
pm Menu 
Loop 
Return !@Designate_menu 


Show sub-menu 
Procedure Show_menu 


Menu Kill '## kills menu; to stop use of Execute/Cancel boxes 
Restore Sshow_data 
For I-0 To 90 ! set up a loop 
Read Bar$(1) ! read data from data field 
Exit If Bar$(I)z"***" | until end of data field 
Next I 
Bar$(I)="" ! tail blanks into string 
Bars ( mu! lt O 
Sshow_data: 
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Data Show EN ee 

Dario 

Data 1,2,3,4 550 09] 

i 

Data A - C ,-, AAWC, Active, Air, ASUWC, ASWC, Bogey (tote & cap) 
Data Continuation (of next page) ,"" 

l 

Data D - P ,-, Damage (& reconn info) , ESM, EWC, Flight, Force, HFDF 
Data Intell (spot reports), Passive (sonar tracks),"" 

t 

Data Q - Z ,-, Reporting (policies), Ship, Shore, SOSUS (tracks) 

Data Submarine, Surface (tracks), Surveillance (satellites) , Weather,"'" 
Data “7” 


Cstr$="Select item to Show status information for..." 
Print At(39-Int(Len(Cstr$)/2) Ytext%);Cstr$ 

Menu Bar$() 

On Menu Gosub Show_menu_read 


Do 
On Menu 
Loop 
Return !@Show_menu = 


Display sub-sub-menu (of Show menu) 
Procedure Display_menu 
Menu Kill '## kills menu; to stop use of Execute/Cancel boxes 
Restore Ddisplay_data 
For I=0 To 90 | 
Read Bar$(1) 
Exit If Bars (I)=- Uaa xun] 
Next I 
Bars (P= ! 
Bar$(1+1)="" 
Ddisplay_data: 
Data Display-C , 


set up a loop 
read data from data field 
until end of data field 


tail blanks into string 
ditto 


m 


Data 
Data 
Data 
Data 


1273,4, S Om 


on... ,-, Blue, Neutral, Orange, <astab>, <continue> ,"" 
AX 


Cstr$="Select which display to show information on." 
Print At(39-Int(Len(Cstr$)/2) ,Ytext%) ;Cstrs 

Menu Bar$() ! activate menu 

On Menu  Gosub Display, menu, read 


Do 
On Menu 
Loop 
Return !@Display_menu 
t 


Show Air sub-sub-menu (of Show menu) 
Procedure Show_air_menu 

Menu Kill !d* kills menu, to stop use of Execute/Cancel boxes 

Restore Showair_data 
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Hor I=0 To 90 ! set up a loop 


Read Bar$(1) I read data from data field 
Exit If Bar$(I)z'"***" 1 until end of data field 
Next 1 
Ваг5(1)="" ! tail blanks into string 
Bar$(I+1)="" 1345560 


Showair. data: 

Dare. Show -C , 7? 

15 ------ 

ESSI 2,3,4,5,0,"' 

Data air... ,=, Alert, Availability , Events, Tracks,"" 
Data *** 

Cstr$="Select AIR item." 

Print At(39-Int(Len(Cstr$)/2),Ytext%) ;Cstr$ 


Menu Bar$() ! activate menu 
On Menu Gosub Show, air menu, read 
Do 
On Menu 
Loop , 
Return I6Shov.sair.menu 


i Plot sub-menu 


Procedure Plot_menu 


Menu Kill 
Restore Pplot_data 
5557770 To 90 I set up a loop 
Read Bar$(1) ! read data from data field 
550077 1T Bar$(I)z'**x'" ' until end of data field 
Next 1 
EEN ern ! tail blanks into string 
Баг5(141)="" LE 


Pplot data: 

Pata lot -C, 7? 

PA ---- 

Da 2,3,4,5,6,"" 

ee oe eS Se SS a SS -—---------sr--------- 
Data MAIN Menu -C astab graphics player comms game 

A SS ee 
Data FORCE Menu A -C maneuvers sensors engagements 

7 o o.—.—.-—-"(U0:6“::5-  -  ———-————------------- 
Data FORCE Menu B -C aircraft submarines force comms 

Data EE an an an an Gh ea ae ean o e gi e ә ә ә em wm wi wm wm wm wm wm ; 


Data PLOT ,", All, Blue, Orange, Ovn, Boundaries , Chaff, LOB 
Data Regions, Rivers, Sonobuoy, Speed, Survsat, PIM, Track, Station,"" 
! 
Data *** 
Menu Bar$() ! activate menu 
On Menu dGosub Plot erase menu, read 
Do 
On Menu 
To-Emor" ! ensures "PLOT" precedes each Plot command. 


Zo 


Loop 


Return '(aPlot menu 
l 


Procedure Erase_menu 

Menu Kill 
Restore Eerase_data 
For I=0 To 90 

Read Bar$(1) 

Exit If Bar$(I)z"'"***" 
Next I 
Bar$(I)z'" 
Bar$(I-41)z''" 
Eerase data: 
Data Erase -C, 7? 
IER NEE 
IR e e e 69»! 


Erase sub-menu 


set up a loop 
read data from data field 
until end of data field 


tail blanks into string 
ditto 


Data new Menu ,-------------------------------------------------------- 


Data MAIN Menu -C astab 


Data -------------------------------------------------------- 
Data FORCE Menu A -C maneuvers sensors engagements 

Data -------------------------------------------------------- 

Data FORCE Menu B -C aircraft submarines force comms 

Data -------------------------------------------------------- jun 

| 

Data ERASE ,7, All, Blue, Orange, Own, Boundaries , Chaff, LOB 


Data Regions, Rivers, Sonobuoy, Speed, Survsat, PIM, Track, Station uii 


Data *** 
Menu Bar$() 


activate menu 


On Menu Gosub Plot_erase_menu_read 


Do 
On Menu 
TSSUERASE " ! ensures "ERASE" precedes each Erase command. 
Loop 
Return '@Erase_menu 


Procedure Cancel_menu 

Menu Kill 
Restore Ccancel_data 
For 1-0 To 90 

Read Bar$(I) 

exit 1f.Bar? 7” ” 
Next 1 
Barş(I)="" 
Bars(i+ j= i" 
Ccancel data: 
Data Cancel ^C, 7? 
Data ------ 
Data 1,2,3,4.5. 870 


Cancel sub-menu 


set up a loop 
read data from data field 
until end of data field 


tail blanks into string 
ditto 


Data new Menu ,-------------------------------------------------------- 


Data MAIN Menu -C astab graphics player comms game 
mə. —... —/—-“-——------------------------ 
BEB FORCE Menu A -C maneuvers sensors engagements 
BB): ::5517: r: ““““““——————————------------- 
Meee FORCE Menu ВБ -С aircraft submarines force comms 
Data RA A qe we à, m» qu qe ome qe Ws Cm 45 E e € 4 c o € o wm wm wm wm о 
| 
ии ,-, Activate , All, Altitude, Attach, Barrier, Bingo, Blip,"" 
| 
Pewee D ,-, Cease, Chaff, Circle , Course, Cover, DECM 
Para, Deploy, Depth, Detach,"" 
1 
ENDE e e Епсопл, Ехесибе ,Ејге, Grid, Jam, Launch 
Data Mast, Mission, Mode,"" 
1 
127751 R .-, Örbit, Proceed, RBOC, Recall, Reconn, Recover 
577 €fuel, hetrieve ,"" 
1 
ELM —-2.-. Search, Silence , Speed, Station, Take, Turn 
EE Weapons, Xmark,"" 
1 
Pata =** 
Menu Bar$() ! activate menu 
On Menu  Gosub Cancel menu, read 
Do 
On Menu 
T$=""CANCEL " I ensures "CANCEL" precedes each Cancel command. 
Loop 
Return !@Cancel_menu 


| Weapons sub-menu 


Procedure Weapons, menu 
Menu Kill '## kills menu; to stop use of Execute/Cancel boxes 
Restore Wweapons, data 
For I-0 To 90 ! 

Read Bar$(I) ! 
BRUT If Bar$(I)="**xxan | 


set up a loop 
read data from data field 
until end of data field 


Next 1 
Ваг5(1)="" ! tail blanks into string 
Bar$(I-*41)z'" EAE CO 


Wweapons_data: 
Data Weapons-C, ?? 


25757 --—- 

Pata 1,2,3,4,5,6,''" 

Data FREE ,.-, Air, Surface, Submarine, All, Enemy 
Data Nuclear, Conventional ,''" 

Data TIGHT ,", Alr, Surface, Submarine, All, Enemy 
Data Nuclear, Conventional ,"" 

Data *** 


Cstr$="select Weapon item..." 
Print At(39-Int(Len(Cstr$)/2),Ytextğ):Cstr$ 
Menu Bar$() I activate menu 


E 


On Menu Gosub Weapons_menu_read 


Do 
On Menu 
Loop 
Return ! @Weapons_menu 


l Launch Cruise sub-menu 


Procedure Cruise_menu 


Menu Kill '## kills menu; to stop use of Execute/Cancel boxes 
Restore Ccruise_data 
For 1=0 To 90 ! set up a loop 
Read Bar$(I) I read data from data field 
Exit If Bar$(I)="***"  t until end of data field 
Next 1 
Bar$(1)="" ' tall blanks into string 
Bar$(1+1)="" ! ditto 


Ccruise data: 

Data Cruise -C, ?? 

Data 35 ---- 

Bata 1:2:3,4/5 611 

Data mode ,-, BOL, PLZ, FLəS, PLIWO b BE” 
Data *** 

Cstr$="select Cruise mode..." 

Print At(39-int(fLen(Cstr$)/2),Ytezt 0 


Menu Bar$() I activate menu 
On Menu Gosub Cruise_menu_read 
Do 
On Menu 
Loop 
Return '@Cruise_menu 


/ SENSOR Activate sub-menu 
Procedure Activate menu 


Menu Kill !## kills menu; to stop use of Execute/Cancel boxes 
Restore Aactivate_data 
For I=0 To 90 ! set up a loop 
Read Bar$(1) I read data from data field 
Exit If Bar$(I)s"^**^*"  t until end of data field 
Next I 
Bı s ! tail blanks into string 
Ваг5(141)="" Hz: 


Aactivate.data: 

Data Sensor-C, ?? 

Data 27-i 

Data 1,2,3;4,5,6 009 

Data activate ,-, Air, Approach , Emitter, ESM, Radar, Sonar 
Data Surface, Survsat,"" 

Data *** 

Menu Bar$() t activate menu 

Print At(31,Ytext%);"Select menu item..." 


If Aclaunch! 


Bz 


UECISSU ACTIVATE ' 
Else 

T$=F_names$+" ACTIVATE " ! ensures "ACTIVATE" precedes each Activate cmd. 
Endif 


On Menu Gosub Activate_menu_read 


Do 
On Menu 
Loop 
Return tRActivate_menu 


Activate SONAR mode sub-menu 
Procedure Sonar_menu 
6Cclear middle 


Menu Kill ib kills menu, to stop use of Execute/Cancel boxes 
Restore Ssonar.data 
For 1-0 To 90 ! set up a loop 
Read Bar$(1) ! read data from data field 
Exit If Bar$(I)z'"***"  ! until end of data field 
Next I 
55501)" I tail blanks into string 
Ваг5(141)="" Ira eto 


Ssonar,. data: 
Data Sonar -С, ?? 


a ----- 

25571 2,5,4,5,6,"" 

Data modes... ,=, BB, COZ, DE, none," 
Data *** 

Menu Bar$() I activate menu 


Cstrşe"Select a mode." 
Print At(40-Int(Len(Cstr$)/2),Ytext£2) ;Cstr$ 
On Menu Gosub Sonar. menu, read 


Do 
On Menu 
Loop 
Return !(8Sonar. menu 


SENSOR Silence sub-menu 
Procedure Silence menu 


Menu Kill '## kills menu; to stop use of Execute/Cancel boxes 
Restore Ssilence_data 
For I=0 To 90 ! set up a loop 
Read Bar$(1) ! read data from data field 
Exit If Bar$(I)zs'"***" | until end of data field 
Next I | 
Ваг5(1)="" ! tail blanks into string 
Вагӱ(141)="" бизә ет 


Ssilence_data: 
Data Sensor-C, 272 


bob ----- 
Data 1 .2,3,4,5,6,'"" 
Data silence ,-, Air, Approach , Emitter, ESM, Radar, Sonar 


38 


Data Surface, Survsat,"" 

Data *** 

Menu Bar$() ! activate menu 
Print At(31,Ytext%);"Select menu item..." 

1 


If Aclaunch! 

IS-TSTUSTERISEL 
Else 

T$=F_name$+" SILENCE " ! ensures "SILENCE" precedes each Silence cmd. 
Endif 


On Menu  Gosub Silence, menu, read 


Do 
On Menu 
Loop 
Return !@Silence_menu 


AIRCRAFT mission sub-menu 


Procedure Mission_menu 
@Cclear_middle 


Menu Kill '## kills menu; to stop use of Execute/Cancel boxes 
Restore Mmission, data 
For I=0 MO 30 | set up a loop 
Read Bar$(1) I read data from data field 
Exit If Bar$(I)="***"  ! until end of data field 
Next I 
Ваг5(1)="" ! tail blanks into string 
Bar$(I+1)="" ditto 


Mmission_data: 
Data Arrcr: aur 


Dara ә 
Data, 3 040 
Data mission ,-, none, AEW, Airtanker, ASW, CAP, Decoy, EW, Jammer 


Data  Reconn, Relay, Rescue, Search, Strcap, Strike 
Data Sttanker, Sürcep, Sur elliloncel 7 

Data *** 

Menu Bar$() ! activate menu 
Cstr$="Select a mission" 

Print At(40-Int(Len(Cstr$)/2) Ytext%);Cstr$ 

On Menu Gosub Mission_menu_read 


Do 
On Menu 
Loop 
Return t(aMission, menu 


' AIRCRAFT commands sub-menu 
Procedure Flt commands, menu 
(àCclear middle 


tant e '## kills menu; to stop use of Execute/Cancel boxes 
Restore Commands, data 
For I-0 To 90 ! set up a loop 

Read Bar$(1) I read data from data field 
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ExSt Tf Bar$(I)z'"^^*" 
Next I 


iter lend of data field 


Bar$(I)z'" uta aniswinto- stesng 

Bar$(I+1)="" genee 

Commande data: 

Data Flt Cmd-C, ?? 

ih e 

m5 01,Z,3,4,5,6,"" 

l 

Data À - C ,-, Activate , Altitude, Attach, Barrier, Bingo, Cease 
Data Chaff, Course, Соҹег,"" 

) 

Data D-R ,-, Deploy, Detach, Fire, Inform, Jam, Load, Mission 


Data Proceed , Reconn, Refuel, Report,'"" 


Data S - Z ,-, Search, Silence , Speed, Station, Stop, Take 
Data Turn, Use, Weapons,"" 


Data *** 

1 

Menu Bar$() 
If Aclaunch! 


! activate menu 


5225 (15.13).:"СЕҺФ flight plan with STOP, BINGO, or SEARCH command. |" 


Endif 


On Menu  Gosub Flt, commands, menu. read 


Do 
On Menu 
Loop 


Return (68Flt commands. menu 


Procedure Report.menu 


AIRCRFT Flt cmds Report sub-menu 


Menu Kill '## kills menu; to stop use of Execute/Cancel boxes 


Restore Rreport, data 
For I-O To 90 

Read Bar$(I) 

57170: "13Bar6(l)e"”xxu 
Next I 
Bar$(I)z'" 
Bar$(1+1)="" 
Rreport_data: 
pora Report =C, 7? 
5:557:---- 
Dp, 3,4,5,6,' 


! set up a loop 
! read data from data field 
! until end of data field 


! tail blanks into string 
Id tto 


£ 770) -- «continue» , Air, ESM, On, Position, Surface, Time, Using,"" 


Data *** 


Cstr$="select Report item..." 
Print At(39-Int(Len(Cstr$)/2),Ytext%) ;Cstr$ 


Menu Bar$() 


! activate menu 


On Menu  Gosub Report, menu, read 


Do 
On Menu 
Loop 
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RETU '(óGReport menu 


Sala eer HHH 


MENU READ PROCEDURES 
ттр AAA AAA RR O O ORO O TO TOMO OOO O ROTO TOO RO ROO OO ROTO TARO ROO OO RR RARO O O RR TARRO OR TR E TAME ARO ATA ATA 
| Main menu selections 
Procedure Main menu read 

Menu Off 

GCclear middle 

T$-F name$ '## resets T$ to allow only one command in the string. 


@Cclear_command_box 


If Bar$(Menu(0))=" 


(48 clears it even if cmd not Cancelled or Executed 


a I" 


@My_thesis talert box routine 

Endif 

If BarS(Menu(0))2" FORCE Menu А -С maneuvers sensors engagements" 
@Force_menu_a 

Endif 

If Bar$(Menu(0))="" FORCE Menu B -C aircraft submarines force comms" 


@Force_menu_b 


ASTAB orders - - - - 


If Bar$(Menu(0))z" 
TŞ-"BEARING " 
@Bbearing 
@Show_cmd 

Endif 

| 

If BarS(Menu(0) )z' 
TS="CLAS SIFY 
@Cclassify 
6Shov cmd 

Endif 

| 

If BarS(Menu(0))z" 
Тӱс"СРА " 

@Ccpa 
@Show_cmd 

Endif 

| 

If Bar$(Menu(0))=" 
T$="DESIGNATE " 
@Designate_menu 

Endif 

| 

If Ваг5(Мели(О))=" 
TS="DROP " 
@Ddrop 


Bearing" 


Classify" 


CRA: 


Designate " 


Drop 
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(aShow cmd 

Endif 

1 

1Е Ваг5(Мели(О))=" 
TS="PRINT " 
sEprint 
@Show_cmd 

Endif 

1 


If Bar$(Menu(0))z" 
TS-"SHOW ' 
@Show_menu 


If Bar$(Menu(0))e" 
@Plot_menu 

Endif 

If Bar$(Menu(0))z" 
(Erase, menu | 

Mee 

If Bar$(Menu(0))z" 
ESZUCENTER ' 
@Ccenter 
@Show_cmd 

EndIf 

If Bar$(Menu(0))z" 
TS=""RADIUS " 
@Rradius 
@Show_cmd 

Eua tf 

If Bar$(Menu(0))z" 
TS-"SHIFT ' 
ESshift 
@Show_cmd 

Endif 

If Bar$(Menu(0))z" 
155 LABEL " 
eLlabel 
@Show_cmd 

Enait 

If Bar$(Menu(0))z" 
T$="LOỌB 1 
GLlob 
@Show_cmd 

Endif 

If Bar$(Menu(0))z" 
TŞ= "MARK TRACK " 
@Mmark_track 
@Show_cmd 

Endif 

If Bar$(Menu(0))z" 
TS="MARK BEARING 


Prine" 


Show" 


GRAPHICS 


Prot" 


Erase" 


Center" 


Radius" 


boru 


Label" 


LOB" 


Mark track" 


Mark bearing" 
n 
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orders 


@Mmark_bearing 
@Show_cmd 

Endif 

If Bar$(Menu(0))s" Unmark track" 
TS="UNMARK TRACK " 
@Uunmark_track 
@Show_cmd 

Endif 

If Bar$(Menu(0))="" Place" 
TS=""PLACE " 
@Pplace 
@Show_cmd 

Endif 

If BarS(Menu(0))="" Cancel"! 
TS=""CANCEL " 
@Cancel_menu 
@Show_cmd 

Endaf 

If Bar$(Menu(0))=" PIM" 
TŞ="PIM " 
@Ppim 
@Show_cmd 


If Bar$(Menu(0))="" Inform" 
TS="INFORM " 
@Show_cmd 
Cstrs="Enter text to send to player: " 
Print At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ 
Prine 
Porma rInput 757 mI 
TS=TS+Uppers( Fas) 
@Show_cmd 

Endif 

| 

If Bar$(Menu(0))=" Intell" 
T$-"INTELL " 
Glintell 
| 
GShov cmd 

Endif 

If Bar$(Menu(0))z2" Message " 
TS="MESSAGE " 
@Mmessage 
@Show_cmd 


If Bar$íMenu(0))=" Go" 
TS="GO " 
@Show_cmd 

Endif 

If Bar$(Menu(0))="" Pause" 
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COMMS orders - - - - 


UMPIRE orders - - - - 


NSS"UPAUSE " 
GPpause 
@Show_cmd 

Enc f 

If Bar$S(Menu(0) )=" 
TS="END H 
@Eend 
@Show_cmd 

Endif 

If Bar$(Menu(0))z" 
TS="COPY " 
@Ccopy 
@Show_cmd 

Endif 

If Bar$(Menu(0))z" 
TS=""RELOCATE " 
@Rrelocate 
@Show_cmd 

Endif 

If Bar$(Menu(0))z" 
TS="SAVE " 
@Show_cmd 

Endaf 

If Bar$(Menu(0))“" 
TS="TIME " 
@Ttime 
@Show_cmd 

Endif 

If Bar$(Menu(0))=" 
ISS USET " 
@Sset 
@Show_cmd 

Enda f 

If Bar$íMenu(0))=" 
TS="ENABLE " 
GEnable disable 
(aShow cmd 

Bret 

If Bar$(Menu(0))=" 
T$z"DISABLE " 
GEnable disable 
@Show_cmd 

Endif 

If Bar$(Menu(0))z" 
TS="EXPEND " 


GExpend replenish 


6Shov) cmd 

Endif 

If Bar$(Menu(0))e" 
TS=""REPLENISH " 


CExpend_replenish 


eshow_cmd 


Ena" 


Copy 


Relocate" 


Save" 


Time" 


Set" 


Enable" 


Disable" 


Een 


Replenish" 
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Bees 
Return ! (aMain, menu, read 
1 


Force menu A selections 
Procedure Force_menu_a_read 


Menu Off 

@Cclear_middle 

TS=F_name$ '## resets TS to allow only one command in the string. 
@Cclear_command_box '## clears it even if cmd not Cancelled or Executed 


If Bar$(Menu(0))s" ??' 
(My thesis talert box routine 

Endif 

If Bar$(Menu(0))2" MAIN Menu -C astab graphics player comms game" 
GMain menu 

Endif 

If Bar$(Menu(0))="" FORCE Menu B -C aircraft submarines force comms" 
@Force_menu_b 

Endif 

If Bar$(Menu(0))=" Select unit " 
GF entry 
@Force_menu_a 

Endir 


If Bar$(Menu(0))-" Course" 
TS="COURSE " 
GE check 
@Ccourse 
@Show_cmd 
EDGE 
If Bar$(Menu(0))2" Speed" 
TS="SEBED" 
GF check 
ESspeed 
@Show_cmd 
Endif 
If Bar$S(Menu(0))="" Proceed! 
TS=""PROCEED " 
GF check 
@Pproceed 
@Show_cmd 
ENGA 
If Bar$(Menu(0))=" Station" 
TS="STATION " 
@F_check 
@Sstation 
@Show_cmd 
Endif 
If Barsí(Menu(0))=" Search" 
T$="SEARCH " 
@F_check 
ESsearch 
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@Show_cmd 

Endif 

Bars (Menu(0))=" USE (plan) " 
TS="USE " 
GF check 
(aUuse 
@Show_cmd 

Endif 

If BarS(Menu(0))="' Execute (plan)" 
MSS"EXECUTE " 
GF check 
@Eexecute 
@Show_cmd 

Endif 

If BarS(Menu(0))="" Enter Orders" 
CstrS="ENTER ORDERS command not functional; need RESA input." 
Enc At(12,Ytext$);Cstr$ 

Endif 

If Bar$(Menu(0))-2" Pending Orders ' 
Cstr$="PENDING ORDERS command not functional; need RESA input." 
Би AtC(12,Ytext?):Cstr$ 

Endif 

If Bar$(Menu(0))-" Cancel" 
MESUCANCEL " 
GF check 
GCancel menu 
@Show_cmd 

Endif 


If Bar$S(Menu(0))="" Activate ' 
TS="ACTIVATE " 


GF check 
(Activate menu 
Endif 
If Bar$(Menu(0))c" Silence" 
ROS “SILENCE " 
GE check 
6Silence menu 
Endif 
If Bar$(Menu(0))=" Blip on" 
TA='"BLIP ON " 
@F_check 
@Show_cmd 
Endif 


49 11 Мели(О))=" Blip off H 
TS="BLIP OFF " 
GF check 
@Show_cmd 

Endif 

If BarS(Menu(0))="' DECM on! 
m— HECH ON " 
GF check 
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EShow_cmd 

Endir 

If Bar$(Menu(0))z' 
TS="DECH TONE 
GE check 
@Show_cmd 

Endif 

If Bar$(Menu(0))z" 
T$="RBOC ON " 
@F_check 
@Show_cmd 

Endif 

If Bar$(Menu(0))z" 
T$="RBOC OFF" 
GE check 
6Shov cmd 

Endif 

If Bar$(Menu(0))z" 
Ts UM 
GE check 
@Jjam 
@Show_cmd 

Endi 

If Bar$(Menu(0))z' 
T$="CEASE" 
GE check 
@Ccease 
65hov cmd 

Endif 

12 Bar$S(Menu(0) )=" 
TS="EMCON" 
GE check 
(SEemcon 
@Show_cmd 

Endif 


If Bar$(Menu(0))=" 
TS=""WEAPONS " 
@F_check 
@Weapons_menu 

Endit 

If Bar$(Menu(0}))=" 
TS="FIRE " 

GE check 
@Ffire 
@Show_cmd 

Endif 

If Bar$(Menu(0))z" 
T$=" LAUNCH " 
@F_check 
@Llaunch 

Eye 


DECM OLI i 


RBOC on” 


KEOC 02: 


Jam” 


Cease" 


Emcon" 


Weapons 


Fire" 


Launch 
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If Bar$(Menu(0))c" Take" 
TŞ-"TAKE " 
GF check 
@Ttake 
@Show_cmd 
Endif 
Return '(aForce menu, À read 
1 


| Force menu B selections 
Procedure Force menu. b read 
(Cclear, middle 
TS=F_name$ ¡HH resets TS to allow only one command in the string. 
(Cclear, command, box '## clears it even if cmd not Cancelled or Executed 
| 
If Bar$(Menu(0))s" ??" 
(My thesis lalert box routine 
Endif 
If Bar$(Menu(0))-2" MAIN Menu -C astab graphics player comms game" 
(Мај menu 
Ef 
If Bar$(Menu(0))="" FORCE Menu A -C maneuvers sensors engagements" 
@Force_menu_a 
Endif 
If Bar$(Menu(0))2" Select unit " 
GF entry 
(aForce menu. b 


If Bar$(Menu(0))=" Launch ! 
TS="LAUNCH " 
@F_check 
GAc launch 
ENE 
| 
If Bar$(Menu(0))s" Flight Cmds " 
GF eheck 
Cstr2$z'" 
GEI Commandes menu 
EndIf 
1 
If Bar$íMenu(0))=" Alert" 
T$-"ALERT" 
GF check 
GAalert 
Enduf 
If Bars(Menu(0))=" Close" 
T$="CLOSE" 
GF check 
(aShow cmd 
Inc Ytext% 
@Tc_choice 
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EndIf 

If Bar$(Menu(0))-2" Handover" 
IŞ-"HANDOVER" 
GC check 
GHhandover 

Endif 

If Bar$íMenu(0))=" Open" 
Тӱ="ОРЕМ" 
DE check 
@Show_cmd 
ine.Xtex:c 
(Tc. choice 

Endif 

| 

If Bar$S(Menu(0))="" Orbit" 
T$="ORBIT" 
GF check 
G6Oorbit 

Endif 

If Bar$íMenu(0))=" Recall" 
TS="RECALL" 
DE check 
@Show_cmd 
еви 1111 flughts.! 
Print At(40-Int(Len(Cstr$)/2) Ytext%);Cstr$; 
Inc Ytext% 
(Tc choice 

Endif 

| 

If Bar$í(Menu(0))=" Recover" 
TS$='""RECOVER" 
GE check 
@Show_cmd 
бәр -"А11И MOS 
Print At(40-Intí(Len(Cstr$)/2), Ytext%);Cstr$; 
Inc Ytext% 
@Te choice 


----- --------------.- = SUBMRINE selections - - - - - - - 
If Bar$(Menu(0))=" Depth" 

TSz"DEPTH " 

GF check 

Cstr$-"Enter depth (60-9999 ft): " 

Print At(40-Int(Len(Cstr$)/2), Ytext%);CstrS; 

Lolim%=60 

Hilim%=9999 

Numlen%=4 

@Number_entry 

TS=TS$+Pnum$ 


qa 


Ytext%=Crslin 
Inc Ytext% 
(Tc choice 

Endif 

1 

If Ваг5(Меһи(О))=" Surface" 
T$-"SURFACE" 
GE check 
@Tc_choice 

Endif 

1 


If Bar$(Menu(0))=" Periscope " 
1 PERISCOPE" 
GF check 
Cstr$="Come to periscope depth." 
Print .At(40-Int(Len(Cstr$)/2) Ytext%);Cstr$; 
ine Ytexts 
(Tc choice 
Endif 
| 


If BarS(Menu(0))="" Fire" 
TS="FIRE " 
GE check 
OFfire 
Endif 
1 
If Ваг5(Меһи(О))=" Mode" 
T$="MODE" 
GE check 
Pert 2," Which mode? ",0,"Diesel Electric" A 
If A=1 Then 
TS=TS$S+" DIESEL" 
EndIf 
If A=2 Then 
Geist" ELECTRIC" 
Endif 
Clr A 
Inc Ytext% 
@Tc_choice 
Endif 
1 
If Bar$(Menu(0))="" Mast" 
TS="MAST" 
DE check 
2755” ”” select... ",0," Down Up, A 
If A=1 Then 
TS=T$+" DOWN" 
End1f 
If A=2 Then 
TS-T$-4'" UP" 
Endif 
Cİr A 
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Tne YCEE: 
@Tc_choice 
Endif 
If Bar$(Menu(0))="' Deploy" 
TS-"DEPLOY ' 
GF check 
@Ddeploy 
Endif 
l 
If Bar$(Menu(0))=" Retrieve" 
TS="RETRIEVE " 
GF check 
eDdeploy !## used also for "Retrieve" 


585” 7UVUVUV  — COMMTEXT selections - - - - - - - 

If Bar$(Menu(0))c" Commtext " 
TS="COMMTEXT " 
@F_check 
@Ccommtext 

Endif 

| 

If Barsí(Menu(0))=" Embark" 
TS="EMBARK ' 
GF check 
GEembark 

Endif 

| 

If Bar$(Menu(0))="" Report" 
TS="REPORT " 
Gr check 
@Show_cmd 
@Report_menu 

Endif 

! 

If BarS(Menu(0))="" Circuit” 
CIC 
GF check 
@Show_cmd 
Cstr$="Enter circuit number: " 
Print At(37-Int(Len(Cstrs)/2) 7662566” 
Formo Input 5S EIS 
T$-T$*Upper$S(Fi$) 

Endir. 

| 

@Show_cmd 

@Force_menu_b 

Return !'@Force_menu_b_read 
| 


Designate menu selections 
Procedure Designate menu, read 
Menu Off 
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@Cclear_middle 
@Cclear_command_box f## clears it even if cmd not Cancelled or Executed 
i 
If Bar$(Menu(0))=" Enemy" 
T$=T$+" ENEMY " 
@Show_cmd 
CstrS="Enter track number: " 
Print At(37-Int(Len(Cstr$)/2),Ytext%);Cstrs$; 
@Track_entry 
Endif 
! 
If Bar$(Menu(0))2" Friendly " 
T$=T$+" FRIENDLY " 
@Show_cmd 
CstrS="Enter track number: " 
NE At(37-Int(Len(Cstr$)/2) Ytext%);Cstr$; 
(Track entry 
Endif 
| 
If Bars(Menu(0))=" Neutral" 
T$=T$+"NEUTRAL " 
(Show cmd 
Cstr$e"Enter track number: " 
Print At(37-Int(Lení(Cstr$)/2) Ytext%);Cstr$; 
Track entry 
Encdif 
| 
If Bar$(Menu(0))c" Unknown" 
T$-T$4"UNKNOWN " 
@Show_cmd 
@ecre—"Enter track number: " 
Print At(37-Int(Len(Cstr$)/2),Ytext%) ;Cstrs; 
@Track_entry 
Endrf 
| 
@Show_cmd 
@Main_menu 


Return !@Designate_menu_read 
1 


'Show' menu selections 


Procedure Show_menu_read 
Menu Off 
(8Cclear. middle 
GCclear. command. box '## clears it even if cmd not Cancelled or Executed 
1 
If Bar$(Menu(0))c" AAWC" 
TS=TS+""AAWC " 
GAf choice (ВВ AIR/FLIGHT choice 
(Display. menu 
Endif 


If Bar$(Menu(0))z" Active" 
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TSSTS+ "ACTIVE " 
@Show_cmd 
Alerta,” Select... ",0,"Sonarer tracks =e. 
If A=1 
TS=TSt+""SONAR " 
Endif 
If A=Z 
Te-TŞTUTRACKS " 
End. 
Clr A 
(Show cmd 
(Display. menu !## Sub-menu for Show menu 
Endif 
1 
If Bar$(Menu(0))="" Air" 
TS=TS+UAIR " 
6Shov cmd 
(8Show, air, menu 
Endif 
| 
12 Ваг5(Мели(О))=" ASUWC" 
TS$=TS+"ASUNC " 
GAf choice ($$ AIR/FLIGHT choice 
Endif 
1 
If Bar$(Menu(0))="" ASWC" 
TS=TS+"ASWC " 
GAf choice '$$ AIR/FLIGHT choice 
Endif 
1 
If Bar$(Menu(0))="" Bogey (tote & cap)" 
T$=T$+"BOGEY " 
@Show_cmd 
@Display_menu 
Endif 
If Bar$(Menu(0))-2" Continuation (of next page) " 
To=—ot CONTINUATION. | 
(85how. cmd 
(Display. menu 
Endit 
| 
If Bar$í(Menu(0))=" Damage (& reconn info) " 
TS-2TS-'"DAMAGE " 
(8S5how. cmd 
Display, menu 
Endif 
! 
If Bar$(Menu(0) )="" ESM" 
TS=TS+"ESM " 
Ale cee Ese ",O,"Aiır ourraceoirei 
If A=1 
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TS=TS+"AIR " 
Endif 
If A=2 
Me=TS+ "SURFACE " 
Endıif 
If A=3 
TS=TS+UTRACKS " 
Endif 
cir A 
@Show_cmd 
@Display_menu 
Endaf 
1 
If Bar$(Menu(0))z" EMC" 
TS=TS+"EWC " 
@Af choice !d4 AIR/FLIGHT choice 
(Display menu 
Endif 
| 


If Bar$(Menu(0))="" Flight" 
MS TS + UFLIGET " 
@Show_cmd 
@Display_menu 
Eneif 
1 
If Bar$(Menu(0))-" Force" 
MESTS+ "FORCE " 
@Show_cmd 
Cstr$="Enter force name: " 
Enint At(37-Int(Len(Cstr$)/2),Ytext?):Cstr$: 
Perm input 5,Fis 
TS=TS+UpperS$(Fis)+" " 
@Show_cmd 
@Display_menu 
Endif 
1 
If Bar$(Menu(0))-2" НЕОР" 
Te=1S+"HPDF " 
(Show. cmd 
(Display menu 
Endif 
| 
Ti BarS(Menu(0))=" Intell (spot reports)" 
TS=TS+"INTELL " 
@Show_cmd 
@Display_menu 
Endif 
| 
If Bar$(Menu(0))="' Passive (sonar tracks)" 
TS=TSt+"PASSIVE " 
@Show_cmd 
@Display_menu 
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Endif 

If Bar$(Menu(0))2" Reporting (policies)" 
TS=TSt" REPORTING " 
@Show_cmd 
@Display_menu 

Enda © 

! 

If Bar$í(Menu(0))=" Ship" 
TS=TS+"SHIP " 

@Show_cmd 
@Display_menu 

Endif 

1 

If Bar$(Menu(0))c" Shore" 
TŞeTŞE"SHORE " 

@Q@Show_cmd 
@Display_menu 

Endif 

| 

If Bar$(Menu(0))c" SOSUS (tracks)" 
T$Ş=T$+"'SOSUS " 

@Show_cmd 
@Display_menu 

Endif 

| 

If Bar$íMenu(0))=" Submarine" 
TS=TS+"SUBMARINE " 
@Show_cmd 
@Display_menu 

Endif 

| 

If Bars(Menu(0O))z" Surface (tras | 
TS=TS+"SURFACE " 

@Show_cmd 
@Display_menu 

End... 

If Bar$(Menu(0))=" Surveillance (satellites) " 
T$=T$+" SURVEILLANCE " 
@Show_cmd 
@Display_menu 

Endif 

| 

If Bar$(Menu(0))=" Weather" 
TS=T$+"WEATHER " 

@Show_cmd 
@Display_menu 
Endif 


@Show_cmd 
@Main_menu 
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Return !@Show_menu_read 
l 


i "Display" menu selections 


Procedure Display menu, read 
Menu Off 
@Cclear_middle 
@Cclear_command_box '## clears it even if cmd not Cancelled or Executed 
1 


Cstr$-"Enter view number: ' 

1 

If Bar$(Menu(0))c" Blue" 
BESNE-BLUE ' 
€Va entry 

Endif 

| 

If Bar$í(Menu(0))=" Orange" 
TS=TS+''ORANGE ' 
(Va entry 

ЕЛӘ/ӘР 

| 

If Bar$(Menu(0))c" Neutral" 
TŞeTŞE"NEUTRAL " 

Endif 

| 

If Bar$(Menu(0))=" <astab>" 
Cstr$="Enter ASTAB number; " 
(Va entry 

Endif 

| 

@Show_cmd 

@Main_menu 


Return !@Display_menu_read 
1 


'Display' menu selections 


Procedure Show air menu read 
Menu Off 
@Cclear_middle 
@Cclear_command_box !## clears it even if cmd not Cancelled or Executed 
1 


Cstr$="Enter ASTAB number: " 
1 


If Bar$(Menu(0))=" Alert" 
DOSTS+"ALERT-" 
(Va entry 

Endif 

1 

If BarS(Menu(0))="" Availability " 
TS=TS+"AVAILABILITY " 
€Va entry 

Endif 


If Bar$(Menu(0))-" Events" 


ə 


TS=TS+"EVENTS " 
GVa entry 

End t 

1 

12 Ваг5(Мели(О))=" Tracks" 
DS-TSJXJ TRACKS M 
6Va entry 

Endif 

1 

@Show_cmd 

@Main_menu 

Return !@Show_air_menu_read 


--------- Common entry for AIR/FLIGHT choices from Shov menu - - - 
Procedure Af choice 


@Show_cmd 
Alert 2" Select... EE 
If A=1 
TS-TS-"AIR ' 
Endif 
If A=2 
TS=TS+"FLIGHT " 
Endlf 
Clr A 
Return 


------ Common entry for Viev/ASTAB number from Display menu read - - 
Procedure Va_entry 

Show cmd 

Print At(37-Int(Len(Cstr$)/2),Ytextğ):Cstr$, 

Lolim%=0 

Hilim%=6 

Numlen%= 

ENumber_entry 

TS=T$+Pnums 
Return 


Plot_Erase menu selections 
Procedure Plot_erase_menu_read 

Menu Off 

@Cclear_middle 


@Cclear_command_box !'## clears it even if cmd not Cancelled or Executed 
l 


If Bar$(Menu(0))=" MAIN Menu -C astab graphics player comms game" 
@Main_menu 

ENGATE 

If Bar$(Menu(0))2" FORCE Menu A -C maneuvers sensors engagements" 
GForce_menu_a 

Enait 

If Bar$(Menu(0))s" FORCE Menu B -C aircraft submarines force comms" 
(Force menu. b 


siz 


Endif 

If Bar$(Menu(0))="" All" 
IzIŞ""ALL " 
@Show_cmd 

Endif 

If Bar$í(Menu(0))=" Blue" 
MSSTS+"BLUE " 
@Show_cmd 

Endif 

If Bar$íMenu(0))=" Orange" 
TS=TS+"'ORANGE " 
6GShov cmd 

Endif 

If Bar$í(Menu(0))=" Own" 
TS=TS+"OWN " 
@Show:_cmd 

Betz E 

If Bar$(Menu(0))-2" Boundaries " 
TSZTS-'"BOUNDARIES ' 
(85how cmd 

Endif 

If Bar$(Menu(0))c" Chaff" 
T$=T$+" CHAFF " 
@Show_cmd 

Endif 

If Bar$(Menu(0))="' LOB" 
TS=TS+''LOB " 
@Show_cmd 

Endif 

If BarŞ(Menu(0))c" PIM" 
TS=TS+"PIM !! 
@Show_cmd 

Eldar 

If Bar$íMenu(0))=" Regions" 
TS=TS+"REGIONS " 
@Show_cmd 

Endif 

If Bar$(Menu(0))-" Rivers" 
TSEPST RIVERS ' 
@Show_cmd 

Endif 

If Bar$(Menu(0))-" Sonobuoy" 
TS=TS+""SONOBUOY " 
@Show_cmd 

Be iat 

If Bar$(Menu(0))-" Speed" 
TS=TS+"SPEED " 
GShov cmd 

Endif 

If Barf$í(Menu(0))="" Survsat" 
T$=TS+"SURVSAT " 
(Show, cmd 
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Endif 

If Bar$(Menu(0))=" Track" 
TS=TS+ "TRACK " 
@Show_cmd 

Endif 

If Bar$(Menu(0))c" Station" 
15-157:2172T10177 


EShow_cmd 
Ema? 
1 
@Main_menu 'returns to main menu, allowing only one plot/erase choice 
Return '(aPlot erase menu, read 


| Cancel menu selections 


Procedure Cancel menu read 
Menu Off 
GE check 
@Cclear_middle 
@Cclear_command_box t## clears it even if cmd not Cancelled or Executed 
| 


If BarS(Menu(0))=" MAIN Menu -C. astab graphics player comms game" 
GHain menu 

Endif 

If Bar$(Menu(0))="" FORCE Menu A -C maneuvers sensors engagements" 
@Force_menu_a 

Endif 

If Bar$(Menu(0))2" FORCE Menu B -C aircraft submarines force comms" 
@Force_menu_b 

Endif 

If BarS(Menu(0))=" Activate " 
TS=TS+"ACTIVATE " 
@Show_cmd 

Endif 

If Bar$(Menu(0))=" All" 
MIS IT " 
@Show_cmd 

Endif 

If Bar$(Menu(0))="" Altitude! 
TS=TSH"ALTITUDE L Y 
@Show_cmd 

Endif 

If Bar$(Menu(0))=" Attach" 
TS=TS+"ATTACH " 
@Show_cmd 

Endif 

If Bar$(Menu(0))-" Barrier" 
TS=TS+"BARRIER " 
@Show_cmd 

Endar 

If Bar$(Menu(0))=" Bingo" 
TS$=TS+'"BINGO " 
Eshow_cmd 
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Endif 

If Bar$(Menu(0))=" 
Toe t BLIP ' 
@Show_cmd 

Endif 

If Bar$(Menu(0))=" 
TS=T$+" CEASE " 
@Show_cmd 

Endif 

If Bar$(Menu(0))e" 
TS=T$+" CHAFF " 
EShow_cmd 

Endif 

If Bar$(Menu(0))-" 
TS-TS$T'" CIRCLE " 
(Show. cmd 

Endif 

If Bar$(Menu(0))z" 


T$=T$+"COURSE "- 


EShow_cmd 

Endif 

If Bar$(Menu(0) )=" 
BSEDST'COVER " 
@Show_cmd 

Endif 

If Bar$(Menu(0) )=" 
TS=TS+'""DECM " 
@Show_cmd 

Endif 

If Bar$(Menu(0) )="' 
152:9:"DEPLOY" 
@Show_cmd 

Endif 

If Bar$(Menu(0) )="' 
TS=TSt+"DEPTH " 
@Show_cmd 

Endif 

If Bar$(Menu(0))="' 
TS=TS+"'DETACH ' 
@Show_cmd 

Beete 

If Bar$(Menu(0) )="' 
TS=TS+"EMCON " 
@Show_cmd 

Endif 

If Bar$(Menu(0) )=" 
TS=TS+"EXECUTE " 
@Show_cmd 

Endif 

If Bar$(Menu(0) )=" 
TS=TSt"FIRE " 
@Show_cmd 


Blip" 


Cease" 


sr 


Cmele " 


Course" 


Cover" 


DELİ" 


Deploy" 


Depth" 


Detach" 


Emcon" 


Execute " 


Fire" 


S 


Budu 

If Bar$(Menu(0) )="'! 
TS=TS+UGRID"" 
@Show_cmd 

Endif 

If Bar$(Menu(0))=" 
TS=TS+"JAM " 
@Show_cmd 

Endif 

If Bar$íMenu(0))=" 
TŞeTŞE"LAUNCH " 
@Show_cmd 

Endif 

If Bar$(Menu(0))z" 
TS=TS+"MAST " 
@Show_cmd 

Endif 

If Bar$(Menu(0) )="! 
TS=TS+"MISSION " 
@Show_cmd 

Endir 

If Bar$(Menu(0))z' 
TS-TS$-"MODE " 
@Show_cmd 

Endif 

If Bar$S(Menu(0))="' 
TS=TS+"CRE lee 
@Show_cmd 

Endif 

If Bar$(Menu(0))z" 
TS=T$+" PROCEED " 
@Show_cmd 

Endif 

If Bar$(Menu(0) )="' 
TS=TSt"REOC " 
@Show_cmd 

Endif 

If Bar$(Menu(0))z" 
TSZTS AUREA |! 
@Show_cmd 

Endif 

If Bar$(Menu(0))="' 
TS=TS+""RECONN " 
@Show_cmd 

Endif 

If Bar$(Menu(0) )="' 
TS=TS HH RECOVER " 
@Show_cmd 

Ели 

If Bar$íMenu(0))=" 
To —TS- IURIS E ue 
@Show_cmd 


Grid" 


dam" 


Launch" 


Mast" 


Mission" 


Mode" 


URBAN 


Proceed" 


RBOCT 


Recall' 


Reconn" 


Recover" 


Refuel' 
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Endif 

If Bar$S(Menu(0))="" Retrieve " 
TS=TS+"RETRIEVE " 
(SShow. cmd 

Endif 

If Bar$(Menu(0))z2" Search" 
TS=TS+"SEARCH " 
@Show_cmd 

Endif 

If Barsí(Menu(0))=" Silence " 
TS=T9+'"SILENCE " 
GShov cmd 

Endif 

If Barsí(Menu(0))=" Speed" 
TS=TS+""SPEED " 
@Show_cmd 

Endif 

If Bar$(Menu(0))c" Station" 
TS=TS+"STATION " 
@Show_cmd . 

Endif 

If BarS(Menu(0))="' Take" 
TS=TSt+"TAKE " 
@Show_cmd 

Endif 

If Barsí(Menu(0))=" Turn" 
TS=TS+"TURN " 
(SS5how. cmd 

Endif 

If Bars(Menu(0))=" Weapons" 
TS-TS-'WEAPONS " 
(Show. cmd 

Endif 

If Bar$(Menu(0))z" Xmark" 
TS=TS+"XMARK " 
@Show_cmd 


Endif 

| 

@Main_menu !returns to main menu, allowing only one "Cancel" choice 
Return !(áCancel, menu, read 


| WEAPONS sub-menu selections 
Procedure Weapons menu read 
1 O ee tee EE EEE LEE TU EE PEE 


Weapons menu(0) codes 
| FREE / TIGHT 
air 12 24 


1 1 
1 1 
! 
| ! surface Lə 23 
! submarine 14 24 
! all 15 25 
| ! enemy 16 26 
! nuclear 17 27 
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' conventional 18 28 

i “татр рир ии 
Menu Off 

6Cclear middle 


If Firsttime! '## Keeps from repeating "Weapons Tight/Free" 
If Menu(0)510 And Menu(0)<20 
TS=TS+"FREE " 
N%=20 !## menu() numbers 
Endif 


If Menu(0)520 And Menu(0)«30 
Tı E 
N%=10 
Endif 
For I%=N%+Z To N%+8 !## disables either Tight or Free menu items 
Menu 1%,2 ! 
Next I% ! 
Firsttime!=False '## keeps from re-entering this if-loop 
Endif 
| 
If Bar$(Menu(0))z“" Nuclear" 
TS=TS+"NUCLEAR " 
Menu 17,2 
Menu 18,2 
Menu 27,2 
Menu 28,2 
6GPartial !## allows use of same menu to complete Weapons command 
Endif 
] 
If Bar$(Menu(0))-2" Conventional " 
TS=TSt'"'CONVENTIONAL " 
1611707772 
Menu 18,2 
Menu 27,2 
Menu 28,2 
@Partial 
Endif 
| 
If Bar$(Menu(0))=" Enemy" 
TS-TSTU ENEMY " 
Menu 16,2 
Menu 17,2 
Menu 18,2 
Menu 26,2 
Menu 27,2 
Menu 28,2 
@Partial '## allows completing string using same menu 
Endaf 
| 
If Bar$(Menu(0))="" Surface" 
TS=TS+"'SURFACE"! 
@Tc_choice 
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Endif 

If BarsíMenu(0))=" Submarine" 
TS=TS+"' SUBMARINE" 
@Tc_choice 

Eman f 

If Bar$(Menu(0))=" Air" 
TS=TS+"AIR" 
@Tc_choice 

Endif 

If Bar$S(Menu(0))="" All" 
TS=TSt+" ALL" 
GIC choice 

Endif 

| 


If Aclaunch! !id Launch seq is being used 

@Show_cmd 

DEI Commande menu 
Else 

@Show_cmd | 

(Force menu.a !## will branch to Force menu a if Aclaunch! False. 
Endif 


Return ! (óWeapons, menu, read 
| 


Launch CRUISE sub-menu selections 


Procedure Cruise, menu, read 


Menu Off 

fCclear_ middle 

Menu Kill {t+ allows menu to only be used once. 

Goto Lcl !'## returns to vhere it vas before branching to Cruise menu. 
Return ! (6 Weapons, menu, read 


l Activate menu selections 


Procedure Activate_menu_read 

Menu Off 

(Cclear, middle 

| 

If Bar$íMenu(0))=" Air" 
TS=TS+"AIR" 
Cstr$=" search radar" 
Print At(40-Int(Len(Cstr$)/2) ,Ytext%) ;Cstrs; 
Inc Ytext% 
@Use_time_choice 

Endif 

| 

If Bar$(Menu(0))="" Approach " 
T$=T$+" APPROACH" 
@Show_cmd 
Cstr$="" radar " 
Print At(40-Int(Len(Cstr$)/2) Ytext%);Cstr$; 
Inc Ytext% 
(eUse time choice 

Endif 
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If Bar$(Menu(0))=" Emitter" 
16=Т6 "ЕМИЛТЕРИ 
@Eemitter 
EG ier 
1 
If Bar$í(Menu(0))="" ESM" 
TS=TS+"ESM" 
@Use_time_choice 
Endif 
| 
If Bar$í(Menu(0))=" Radar" 
TS=TS+"'RADAR'"! 
@Show_cmd 
Cstr$=" (air/surface/approach) " 
Print At(40-Int(Len(Cstr7721 ə 7 - 
Ines texts 
dGgUse time. choice 
Endif 
1 
If Bar$íMenu(0))=" Sonar" 
TS=TS+"SONAR " 
@Sonar_menu 
Endif 
| 
If BarSí(Menu(0))=" Surface" 
TS=T$+ "SURFACE" 
@Show_cmd 
Cstrşz" search radar " 
Print At(40-Int(Len(Cstr$)/2) Ytext%);Cstr$; 
Inc Ytext% 
(Use time choice 
Endif 
| 
If Bar$(Menu(0))c" Survsat" 
TS=TSt"SURVSAT " 
@Ssurvsat 
Endif 
| 
If Aclaunch! !## Launch seq is being used 
@Show_cmd 
GE IL Commandes menu 
Else 
@Show_cmd 
@Force_menu_a !## will branch to Force_menu_a if Aclaunch! False. 
Endif 
Return  !GActivate menu, read 
1 


| Silence menu selections 
Procedure Silence menu, read 

Menu Off 

@Cclear_middle 
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Tf BarS(Menu(0))=" Air" 
TS=TS+"ATR" 
Cstr$=" search radar" 
Print At(40-Int(Len(Cstr$)/2) Ytext%):Cstr$; 
Mac Ytextz 
Game time choice 

Endif 

1 

If Bar$(Menu(0))c" Approach " 
TS=TS+""APPROACH'"! 
Cstr$=" radar " 
Print At(40-Int(Len(Cstr$)/2) Ytext%);Cstr$; 
Inc Ytext% 
(Name. time choice 

Endif 

t 

If Bar$(Menu(0))=" Emitter" 
TS=TS+"EMITTER" 
Game time. choice 

Endif 

| 

If Bar$(Menu(0))=" ESM" 
T$=T$+" ESM" 
Cstr$=" equipment " 
Print At(40-Int(Len(Cstr$)/2),Ytext%);Cstr$; 
Inc Ytext% 
GName_time_choice 

ENGT 

1 

If Bar$í(Menu(0))=" Radar" 
T$=T$+" RADAR" 
Cstr$=" (air/surface equipment) " 
Print At(40-Int(Len(Cstr$)/2),Ytext2);Cstr$; 
Inc Ytext% 
(Name time choice 

Endif 

1 

If Bar$(Menu(0))c" Sonar" 
T$=T$+" SONAR" 
Cstr$=" equipment " 
Print At(40-Int(Len(Cstr$)/2),Ytext%);Cstr$; 
Inc Ytext% 
@Name_time_choice 

Епај? 

| 

If Bar$(Menu(0))=" Surface" 
T$=T$+" SURFACE" 
Cstr$=" search radar equipment " 
Print At(40-Int(Len(Cstr$)/2),Ytext%):Cstrs; 
ine ay text 
@Name_time_choice 
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Endit 
1 
If BarstcMenuco Dele Su S " 
TS=TS+'"SURVSAT " 
@Show_cmd 
Cstr$="Enter satellite name: " 
Print At(37-Int(Len(Cstr$)/2) ,Ytext%);Cstr$; 
Form Input 7 
TS=TStUppers(Fis)+" " 
| 


@Show_cmd 
@Cclear_middle 
Cstr$="Enter force name: " 
Print At(37-Int(Len(Cstr$)/2), Yeext<.) C 
Formo Inputss ETS 
T$=T$+Upper$(Fi$) 
@Tc_choice 
Endif 
1 


If Aclaunch! (ЫҸ Launch seq is being used 
(Show cmd 
GEI Commandes menu 
Else 
EShow_cmd 
(Force menu. a !## will branch to Force_menu_a if Aclaunch! False. 
Endif 


Return !@Silence_menu_read 
| 


Sonar menu selections 


Procedure Sonar_menu_read 
Menu Off 
@Cclear_middle 
| 


If Bar$(Menu(0))c" BB" 
TS=TS+"BB" 

Endif 

| 

кат ии (ә zuo 
T$=T$+"C2" 

Endit 

| 

If Bar$(Menu(0))="" DP" 
TS=TS+"DP" 

Endif 


@Use_time_choice 

| 

If Aclaunch! HH Launch seq is being used 
EShow_cmd 
GEI commande menu 

Else 
EShow_cmd 
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GForce menu a !## will branch to Force_menu_a if Aclaunch! False. 

Endif 

Return 

| 

Mission menu selections 
Procedure Mission_menu_read 

Menu Off 

@Cclear_middle 

@Cclear_command_box (## clears it even if cmd not Cancelled or Executed 

| 

If Barsí(Menu(0))=" none" 
TS=TSt+"MISSION NONE " 
@Show_cmd 

Endif 

| 

1Е Ваг5(Мели(О))=" АЕИ" 
Cstr25="MISSION ДЕИ" 
@Mission_common 

ENTE 

| 

If Bar$(Menu(0))z" Airtanker" 
Cstr2$="MISSION AIRTANKER" 
@Mission_common 

Endaf 

1 

If Ваг5 (Мели(О))=" А5И" 
Cstr2S$z2'"MISSION ASW' 
(a(Mission, common 

Endif 

| 

If Bar$(Menu(0))z" CAP" 
Cstr2$="MISSION CAP" 
@Mission_common 

Endit 

! 

If BarS(Menu(0))="" Decoy" 
Cstr2$="MISSION DECOY" 
@Mission_common 

Endas 

| 

Bars (Menu(0))=" EW" 
Cstr2$="MISSION EW" 
@Mission_common 

Endibf 

1 

If Bar$(Menu(0))=" Jammer" 
Cstr2$="MISSION JAMMER" 
@Mission_common 

Endif 

l 

If Barş(Menu(0))=" Reconn" 
Cstr2$="MISSION RECONN" 
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€6Hission common 

Eust 

1 

If Bar$(Menu(0))z" Relay" 
Cstr2S-z'"MISSION RELAY" 
(aMission, common 

Endif 

1 

If Bar$íMenu(0))=" Rescue" 
Cstr2S="MISSION RESCUE" 
(aMission. common 

Endif 

l 

1f Barsí(Menu(0))=" Search" 
Cstr25="MISSION SEARCH" 
(aMission. common 

Endif 

| 

If Bar$(Menu(0))z-" Strcap" 
Cstr2$="MISSION STRCAP" 
@Mission_common 

Endif 

| 

1f Bar$í(Menu(0))=" Strike" 
Cstr2$="MISSION STRIKE" 
6Hission common 

Endif 

| 

If BarsíMenu(0))=" Sttanker" 
Cstr25="MISSION STTANKER" 
(Mission, common 

Endif 

1 

If Bar$(Menu(0))z2" Surcap' 
Cstr2$="MISSION SURCAP" 
GMission common 

Endif 

1 

If Bar$(Menu(0))=" Surveillance " 
Cstr2$="MISSION SURVEILLANCE" 
@Mission_common 

Endif 

LLL LLL LLL LA If Launch seq is being used, Aclaunch! is True. = = = == 

If Aclaunch! 
GEI commande menu 

Else 
Force menu b !## will branch to Force_menu_b if Aclaunch! False. 

Endif 

Return !@Mission_menu_read 
1 


A/C Commands menu selections 
Procedure Flt_commands_menu_read 
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Menu Off 

@Cclear_middle 

1 

If Aclaunch! !d4 Launch seq is being used 
TS=TS+" 1 


cer = = = = – məc WIEN exiting Procedures - - - = = = 


If Bar$S(Menu(0))="" Activate " 
@Activate_menu 

Endif 

1 

If Bar$(Menu(0))=" Altitude" 
17 IŞT"ALTITUDE " 
GAltitude entry 

Emm f 

! 

If Bar$(Menu(0))-" Cease' 
MS TS+'"CEASE" 
@Ccease 

Boat 

| 

If Bar$(Menu(0))“" Course" 
E x 27"COURSE ” 
GCcourse 

Enaif 

If Bar$(Menu(0))“" Fire" 
1 -IŞT"FPIRE " 
@Ffire 

EHLİ 

| 

If Bar$(Menu(0))“" Qam" 
Bz VAH" 
@Jjam 

Endif 

| 

If Bar$(Menu(0))=" Proceed " 
TS=TS+"PROCEED " 
@Pproceed 

Endir 

! 

If Bar$(Menu(0))=" Silence " 
6Silence. menu 

Ел 

| 

If Bar$í(Menu(0))=" Speed" 
Te—1S7 "SPEED" 
@Sspeed 

Endif 


If Bar$(Menu(0))-2" Station" 
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TS=TS+"STATION " 
@Sstation 

Endif 

I 

If Bar$(Menu(0))z" 
TS=TS+"TAKE ' 
@Ttake 

Enur 

] 

If Bar$(Menu(0))="' 
TS=TS+"USE " 
@Uuse 

Endif 

1 

If Bar$(Menu(0) )=" 
Tf Aeclaunent 

TS=TS+'"NEAPONS 
Else 

TS="WEAPONS !! 

@F_ check 
Endif 
Firsttime!=True 
@Weapons_menu 

even ina 


If Bar$íMenu(0))=" 
16-15: 16 
GAattach 

EDİ 

If Bar$(Menu(0) )=" 
TS=TS+''BARRIER" 
GBbarrier 

Endif 

If BarsíMenu(0))=" 
BS EST ERA " 
dGcchaff 

Endif 

1 

12 Ваг9(Мели(0))=" 
TŞeTŞE"COVER " 
@Ccover 

Ener 

1 

If Ваг5(Мели(О))=" 
TSSTSEUDEPLOY U 
@Ddeploy 

Endif 


Take" 


Use" 


Weapons" 


- - - menu items with new 


Attach" 


Barrier" 


Cha DEN 


Cover" 


Deploy" 
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Procedures 


If Bar$(Menu(0))=" Detach" : 


TS=TS+''DETACH' 
@Show_cmd 


GSPrSs'"From collective flight." 
Brant At(37-Int(Len(Cstr$)/2) Ytext%);Cstr$; 


GTime entry 
Endif 


If Bar$í(Menu(0))=" Inform" 


T$=TS+ "INFORM " 
(SShow, cmd 


Cstr$="Enter text to send to player. " 
Print At(37-Int(Len(Cstr$)/2) Ytext%);Cstr$; 


Bern Input 20,F1$ 
T$-T$4*Upper$ (Fi$) 


Bndif 

1 

If Bar$(Menu(0))“" 
TSST$Ş+" LOAD" 
@Show_cmd 
@Ac_load 

Endif 

1 

If Bar$(Menu(0))z" 
@Mission_menu 

Endif 

1 

If Bar$(Menu(0))z" 
TSZTS-"RECONN " 
@Rreconn 

Peer 

1 

If Bar$(Menu(0))z" 
TS$=TS+"REFUEL " 
@Rrefuel 

Endif 

| 

If Bar$íMenu(0))=" 
TS=TS$+ "REPORT ' 
@Show_cmd 
@Report_menu 

Endif 

| 

If Bar$(Menu(0))z'" 
T$=T$+" TURN " 
@Show_cmd 
@Course_entry 
@Show_cmd 
@Time_entry 

Endif 


Load" 


Hiss ion 


Reconn" 


Refuel" 


Report” 


Turn" 


menu items that end the Launch sequence 
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If Bar$(Menu(0))="" Stop" 


Aclaunch!=False '## resets Launch sequence flag 
IS=TIS+ US TORN 
Endif 


If Bar$(Menu(0))“" Bingo" 


Aclaunch!=False HR resets Launch sequence flag 
TS- TSH BINGO 
Bndif 


If Bar$(Menu(0))c" Search" 
Aclaunch!=False (Saz resets Launch sequence flag 
TS=TS+"'SEARCH " 
@Ssearch 
Endif 
| 
Тер aUh] (38 Launch seq is being used 
GShov cmd 
GFlt commands. menu 
Else 
@Show_cmd 
(Force menu b !## will branch to Force_menu_b if Aclaunch! False. 
Endif 
Return  !GFlt commands, menu, read 
1 


| Flt Commands REPORT menu selections 
Procedure Report, menu, read 

Menu Off 

@Cclear_middle 

@Cclear_command_box '## clears it even if cmd not Cancelled or Executed 

l 

If BarsíMenu(0))=" Air" 
TS=TS+"AIR " 
GAair 

Endif 

i 

If Bar$(Menu(0))c" ESM" 
TS=TSt"ESM " 
GEesm 

Endif 

1 

If Bar$(Menu(0))=" On" 
TS=TS+"ON " 
G0on 

Debt 

| 

If Bar$(Menu(0))=" Position" 
TS=T$+"POSITION " 
GPposition 

BEER 
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If Bar$(Menu(0))-2" Surface" 
BHSOZTST'SURFACE " 
ESsurface 

Endas 

If BarS(Menu(0))=" Time" 
6Tttime 

Endif 

If Bar$(Menu(0))“" Using" 
TS=T$+"USING " 

GUusing 

Endif 

(a5how, cmd 

(SForce menu. b 


Return  !GReport menu, read 

SH E E АСАСАРАСАСАСАРАСАРАРАСАСАНН 
GENERAL WORKING PROCEDURES 

AAA 


+ ee ee ENEE window 156 ----------- 
Procedure Help key test 


If Menu(14)=25088 iii 25088 is the scan code for Help key 
W1x=300 ! maximum 638 (639 will cause the windov to NOT reset) 
W1y=189 I maximum 189 (menu bar takes 10 pix lines of screen) 


Get 0,0,W1x+1,Wly+1 Savewindowl$ 

Openw 1,W1x,Wly 

Titlew 1,"Message about Help." 

Clearw 1 

Print "This is a help paragraph. It can be set up so that it is right" 
Print "where you want it. I am testing the Help Key." 


Print " Free RAM € ",Ere(0) 
Print Press a key to continue." 
Repeat 
ünuui inkeyşco"" 
Closew 1 
Put 0,0,Savewindowl$ 
Endif 
Closev 0 {#4 Resets screen after other windows are used. 
Return 


DIOX (Dialog box ) common procedure 


Used as a "shell" procedure to help create dialog boxes 


J 
1 
Procedure 


Drav.text. in box(Ch$,X text,Y text,Style,Char.color,Char.size,Hborder,Vborder,- 
Thick,Inverse) 
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Local 
Offset,Width,Height,Fatness,Round,Seethru,Xhot, upper,Yhot upper,Xhot lower,- 
Yhot lower,Temp$ 

If X text«O 

Rouna=True 

Else 

Round=False 
Endir 
esy texto 
Seethru=True 

Else 

seethru=False 

Emus 

X text-Abs(X text) 

Y text-Abs(Y text) 

If Xbios(4)-21 And Char, size-1 

Сһаг 5126=6 
Else 
If Xbios(4)=2 And Char_size=1 
Char. size-13 
Endir 
Endif 
If Char_size=32 
Height=32 
Width=16 
Offset=4 
Else 
If Char_size=13 
Height=16 
Width=8 
Offset=3 
Else 
If Char_size=6 
Height=8 
Width=8 
Offset-l 
Else 
If Char_size=4 
Height=7 
Width=6 
Offset=2 
Endir 
Endif 
Endif 

Endif 

1 

If Xbios(4)=2 

Strip (9) 
Else 

Strip=(-8) 
Endif 
Xhot_upper=X_text-Hborder-Thick+1 


70 


Yhot_upper=Y_text+0ffset-Height-Vborder-Thick+20+Strip 
Xhot_lower=X_text+Len(Ch$)*Width+Hborder+Thick-1 
Yhot_lower=Y_text+0ffset+Vborder+Thick+18+Strip 

1 

Deftext Char. color,Style,O,Char. size 

Graphmode 1 

| 


ит 0n1cbo0 
If Inverse 
Metfill Char_color,l, 
Else 
Deffill 0,0,0 
Endif 
color 1 
i 
If Round 
If Seethru 
Rbox 
(X_text-Hborder)-1, (Y_text+Offset-Height-Vborder)-1, (X_text+Len(Ch$)*Width- 
+Hborder)+1,(Y_text+O0ffset+Vborder)+1 
Else 
Prbox 
(X_text-Hborder)-1,(Y_text+0ffset-Height-Vborder)-1,(X_text+Len(Ch$)*wWidth- 
+Hborder)+1,(Y_text+0ffset+Vborder)+1 
Endif 
Else 
If Seethru 
Box 
(X_text-Hborder)-1,(Y_text+0ffset-Height-Vborder)-1,(X_ tn 
+Hborder)+1,(Y_ EE EMI 
Else 
Ebox 
(X_text-Hborder)-1,(Y_text+O0ffset-Height-Vborder)-1,(X_text+Len(Ch$)*width- 
+Hborder)+1,(Y_text+O0ffset+Vborder)+1 
Endif 
Endif 


For Fatness-1 To Thick 


If Round 
Rbox 
(X_text-Hborder)-Fatness,(Y_text+O0ffset-Height-Vborder)-Fatness,(X_text+Len(Ch$) 


*Width+Hborder)+Fatness, (Y_text+Offset+Vborder)+Fatness 
Else 


Box 
(X_text-Hborder)-Fatness, (Y_text+Offset-Height-Vborder)-Fatness, (X_text+Len(Ch$) 


AWidth+Hborder)+Fatness, (Y_text+Offset+Vborder)+Fatness 
Endif 


Next Fatness 
| 


Endif 


ил 


If Seethru 
Graphmode 2 
Text X text,Y text,Ch$ 
If Inverse 
Get Xhot, upper,Yhot, upper,Xhot, lower,Yhot, lover,Temp$ 
Put Xhot, upper,Yhot upper,Temp$,12 
Endir 
Goto Buttonendl 
Endif 
1 
1f Inverse And Thick>0 
Graphmode 3 


Else 
If Inverse And Thick<=0 
Graphmode 4 
Else 


If Not (Inverse) 
Graphmode 2 
Endif 
Endif 
Endif 
Tec ex text, Ens 
Buttonendl: 
Graphmode 1 
Return ! DIOX common procedure 


save selected 'blank' areas of screen to use as "erasers" later 
| 
Procedure Save_blanks 
Cls 
Get 0,11,639,140,Middle_boxs 
Get 9,162,625,194,Command_boxs 
Return 
1 
response to ?? dialog box 
Procedure My thesis 
Menu Off 
MtxtS=" Thesis by LCDR G.L.Yungk advisor = CDR J. Stewarti 
Alert 11? İ," OK "A 
Cir £ 
Return 
! 
; Initialization/dimensioning 
Procedure Init 


Sebcolon 191] '## Turns green background white. (for windowing) 

Dim Bar$(90) !d:S Main menu bar. 

F nameSz'' (Ei Common start to "Force" commands 

Ytext%=8 ii Common line to start text on. 

Aclaunch!=False 'f# allows use of individual Procs/menus in Launch seq. 
Lat str$-'"Enter latitude (0-89N or S): " Ht To allow use of err-chkng 
Long str$z"Enter longitude (0-180E or W): " !## with common Procedures. 
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Return 
l 


| Store words/phrases in a string & prints in Command box 
| 


Procedure Show. cmd 
(8Cclear. command, box 


If Len(T$)<=100 '## 100 characters, 2 lines max 
Deftext 1,0,0,9 '## text size allows 50 characters per line 
ИП ҹиб 15,175 Mid$(T$,0,50) 'id first line in command box 
Text 15,190,Mid$(1$,51) '$$ second line in command box 
Else 'd4 101 - 225 characters, 3 lines max 
Deftext 1,0,0,6 '## normal text, allows 75 characters per line 


item 15,170,MidS(TS,0,75) 
Text 15,180,Mid$(T$,76,75) 
uu 15.190,Mi1d$(T$,151,75) 
Endif 
pert 1,0,0,6 'H%$ resets text to normal size & color 
Return 
! | Draw the Command, EXECUTE, & CANCEL boxes 
Procedure Draw. box 
Dertext 1,0,0,8 
Text 460,155, "EXECUTE command" 
Me 15,155, "CANCEL command" 
Color 2 
5 ne 1,2,0,0 
Box 450,142,630,160 


line for EXECUTE box 
EXECUTE box 


BOX 5,142,175,160 CANCEL box 
5:27 160,630,196 Command box 
molor 1 resets color to black 


12 ine 1.1,0,0 
Dertext 1,0,0,6 
Return '@Draw_box 

| 
| Test for mouse In the EXECUTE box 
Procedure Inbox. execute 
Dettewte 2,0,0,8 
Text 460,155, ,"EXECUTE" 
Deftext 170,0,6 '## resets text type to normal 
Sonna 1, p5 5p4,3 
Sound 1,15,8,4,3 
Sena 1,15,5,4,3 
sound 1,0,0,0 
On Menu Obox 1,450,142,180,18 Gosub Outbox_execute 
етмәли Button 1,1,1 Gosub Send string 
Do 
On Menu 
Loop 


Return 
l 


: Test for mouse Out of EXECUTE box 


resets line to normal vidth 


t 
| 
| 
Derllime 1,5,0,0 t line for Command box 
t 
| 
! resets text to normal size & color 
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Procedure Outbox_execute 
Deftext 1,0,0,8 
Text 460,155 E”ECUTEL 


Deftext 1,0,0,6 '## resets text type to normal 
On Menu Ibox 1,450,142,180,18 Gosub Inbox_execute 
Return 


Test for mouse In CANCEL box 
Procedure Inbox_cancel 


Sound 1,15,10,4 
Deftext 2,0,0,8 
Техб 15 157 5 ED 
Deftext 1,0,0,6 '## resets text type to normal 
Sound 1,0,0,0 
On Menu Obox 2,5,142,170,18 Gosub Outbox,. cancel 
On Menu Button 1,1,1 Gosub Cancel string 
Do 
On Menu 
Loop 


Return 
1 


Test for mouse Out of CE box 
Procedure Outbox_cancel 


Deftext 1,0,0,8 
Teu 15 155. CANCER 


Deftext 1,0,0,6 '## resets text type to normal 
On Menu Ibox 2,5,142,170,18 Gosub Inbox_cancel 
Return 


| Clear command box 


Procedure Cclear. command, box 
Put 9,162 Command _box$. 3 


Return 
1 


Send completed "order' to RESA 
Procedure Send_string 


1221 11 '## string must have something in it. 
@Cclear_middle 


@Cclear_command_box 
| 


I Open un Wl," "AUN 


If Out?(1)=-1 188 5232 port is (1). -1 is ready; О is not. 
Print At(1,4);"sending: "; 
For I=1 To Len(T$) !d4 maybe needs Len(T$)-1 
Pause 1 


(äi output to RS232 port 


Out l,Asc(MidS$S(TSwI. 1) 
1)) HP output to screen 


Out 2, Asc Midas Sc iF 
Next I 
Endif 


' Close +1 
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peu 
Endif 


Return 
I 


Cancel order/command & clear string 


Procedure Cancel string 
@Cclear_middle 
@Cclear_command_box 
12100 2t(25,10):"command cancelled," 
Тӱ="" 


Return 
I 


clear middle of screen 


Procedure Cclear,. middle 

Put 0,11, ,Middle_box$,3 

Ytext%=8 !44 To reset first text line to row 8. 
Return 


Procedure Entry_error 
@Entry_error_sound 
Pert 3," Entry error, try agaln!",1," OK ",A 
Clr A 

Return 


Procedure Entry_error_sound 
Seuna 1,12,12,4 
Pause 3 
Sonar” 1,0,0,0 

Return 


Procedure F check 
If F.nameşs"" idi Ensures an addressee for Force commands. 
Mtxt$=" This command requires an addressee (unit)." 
CEntry_error_sound 
57575 1 MtxtsS,1," OK ",A 
@F_entrv 
Endif 
If Not Instr(T$,F_name$) !## To precede Force cmds by "FOR "addressee" " 
TS=F_nameSt" "+T$ 
Endir 
CH -A 
Print At(38-Int(Len(F name$)/2),19);" "+F_names$+" ", 
Return 
SS EE Force addressee entry -9------------------- 
Procedure F entry 
F_name$="FOR " 
Print At(22,Ytext%);"Enter name of addressee (unit): "; 
Forma lnput 5 FI$ 
F_name$=F_name$+Upper$(Fi$) 
@Cclear_middle 
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Print At(38-Int(Len(F.name$)/2),19);" "+F_names$+" u, 
Return 
Latitude entry check ----------------------- 
Procedure Lat_check 

Cx%=Crscol 

Cy%=Crslin 

Form Input 3, lates 

Ltr=Asc(Right$(Lat$)) !## ASCII value of direction (78,83,110,115)(NSns) 

I£ Val? тар 70 ¡HR is there a digit in the string? 

If Val(Lat$)>=0 And Val(Lat$)<90 Hb Is number value betwn O and 90? 
If Ltr=78 Or. Ltr=83 Or Ltr=110 Or ели '## correct direction? 
Goto Last, lat 


Endif 
ENTE 
Endif 
CEntry_error 
Prante Ao M Kb !id clear cursor area 
Print At(Cx%,Cy%); {#4 reposition cursor 
@Lat_check '## check it again 
Last_lat: ¡R$ latitude OK; continue. 
Return 


A Longitude entry check ----------------9251 
Procedure Long check 
Cx%=Crscol 
Cy%=Crslin 
Form Input 4,Long$ 
Ltr=Asc(Right$(Long$)) !## ASCII value of direction (69,87,101,119)(EWew) 
Ie val (Tongs) 0 HR is there a digit in the string? 
If Val(Long$)>=0 And Val(Long$)<181 !## Is number value betwn O and 180? 
If Ltr=69 Or Ltr=87 Or Ltr=101 Or Ltr=119 (ЕН correct direction? 
Goto Last_long 


Endar 
Endar 
ENAIT 
CEntry_error 
EPrinte.Az 02 cM Hg $$ clear cursor area 
Erin 46” iii reposition cursor 
GLong check '## check it again 
Last long: (SH longitude OK; continue. 
Return 


o EE Pure number entry and checking -----2--- ки 
| !id need lolim%, hilim%, numlen% as input; 

¡HR gives Pnum$ as output. 

Procedure Number_entry 


Cx%=Crscol ! remember x posit of cursor 

Cy%=Crslin ! remember y posit of cursor 

Form Input Numlen%,Pnums 

Val(Pnum$) actual numeric value of string Pnum$. 


l Val?(Pnum$) = number of characters in Pnum$ that are numeric. 
Len(Pnum$) length of string Pnum$. 
If Val(Pnum$)<Lolim% Or Val(Pnum$)>Hilim% Or Val?(Pnum$)<>Len(Pnum$) 
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Dat At(Cx%,Cy%);" 35. 
Print At(Cx%,Cy%); 
GEntry_error 
eNumber entry 
Ec f 
Return 


Procedure Mission_common 
27:17 :0(40-Int(Len(Cstr2$)/2),Ytexte):Cstr2$, $$ 'Mission' string 
EY text 
TS=TS+Cstr2$ 


@Tc_choice 
| 


If Not Aclaunch! !## not using Launch sequence 
@Show_cmd 
Hndi f 
Em 


allows choice between TIME & continue. 
Procedure Tc, choice 

@Show_cmd 

Aleit 2," se ZA E continue". € 

IM em] 

(Time entry 
Ehidif 
cE C 


Return 
| 


Common minute entry 


Procedure Minute_entry 
T.textəç 
ime v texte 
Print At(28,Ytext%);" Enter minutes (1-9999)? "; 
Lolim%= 
Hilim%=9999 
Numlen%=4 
@Number_entry 
TS=TS+Pnums 


Return 
I 


Maneuvers sub-sub-proc 


Preecaure Time entry 
Print At(26,Ytext%);"Enter start minute (1-999): "; 
Lolim%=1 
Hilim%=399 
Numlen%=3 
@Number_entry 
TS=TS+"' TIME "+Pnum$ 
Ytext%=Crslin 
Becurn 
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: Maneuvers sub-sub-proc 
Procedure Course_entry 
Print At(26,Ytext£9);"Enter course (0-359 True): "; 
Lolim%=0 
Hilim%=359 
Num leng 
(aNumber, entry 
T$=T$+Pnum$ 
Ytext%=Crslin 
Return 
| 
Maneuvers sub-sub-proc 
Procedure Bearing_entry 
Print At(26,Ytext%);"Enter bearing (0-359 True): "; 
Lolim%= 
Hilim%=359 : 
Numlen%= 
(aNumber, entry 
TS=TS+PRUMS 
Ytext%=Crslin 
Return 
l = 
Maneuvers sub-sub-proc 
Procedure Speed_entry 
Print At(27,Ytext%);"Enter speed (1-9999 kts): "; 
Lolim%=1 
Hilim%=9999 
Numlen%=4 
@Number_entry 
Tox anim” 
YteztezeTrslın 
Return 
1 
Maneuvers sub-sub-proc 
Procedure Distance_entry 
Print At(21,Ytext%);"Enter distance or range (1-9999 nmi): ", 
Lolim%=1 
Hilim%=9999 
Numlen%=4 
@Number_entry 
TS=TS+" "+Pnum$ 
Ytext%=Crslin 
Return 
| 
sub-sub proc 
Procedure Altitude_entry 
Cstr$e"Enter altitude (1-90,000 ft): " 
Print At(40-Int(Len(Cstr$)/2),Ytext£);Cstr$; 
Cstr$=" tl 
Lolim%= 
Hilim%=90000 
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Numlen%=5 
(Number entry 
TS=T$+Pnum$ 
Ytext%=Crslin 


Return 
| 


Procedure Name_time_choice 
@Show_cmd 
Alert 2," select ... 1 “nene” 3 E continue" .A 
If Acı 
(8Cclear, middle 
Cstr$="Enter equipment name: " 
Print At(37-Int(Len(Cstr$)/2) Ytext%);Cstr$; 
Ben Input 5,Fi$ 
miş" "HUpper(FiŞ) 
Ytext%=Crslin 
If Bar$(Menu(0))z" Emitter" 
fName_time_choice 
Else 
(Tc choice  !i Time/continue choice 
Endif 
Endif 
| 
If A=2 
(Time, entry 
Endif 
clr A '## don't clear A 


Return 
1 


Procedure Use_time_choice 
G5hov cmd 


Alert 2," select ... әз "USTMISNITIME continue",A 


l 
If A=1 
Print At(26,Ytextz);"Using what equipment? : ", 
Form Input 5,Fi$ 
TS=T$+" USING "+Upper$(FiS) 
Ytext%=Crslin 


(Tc choice !## Time/continue choice 
1 


Ercif 

If A=2 
GTime_entry 

Endif 

1 

Clr A 


Return 
| 


Track common entry 


mə 


l t#4 format 1S XX####; le. AS234 

| 'HH for letters, gives Chr$(B) as output of last character. 

l (RR for numbers, need lolim%, hilim%, numlen% as input; Pnum$ is output 
l 


Procedure Track_entry 
Cx%=Crscol ! remember x posit of cursor 
Cy%=Crslin ! remember y posit of cursor 
1 


NZ=Cx% set baseline number; allows certain # of iterations 
1 
Бе = character portion of track number. - - - - - 
Te: 
B-Asc(Upper$(Chr$(Inp(2)))) 
If B<65 Or B>90 188 if char isnot Ac n 
Erint 4606x6 0” 
Print At(Cx%,Cy%); 
(Entry error !d* alert box & sound 
Goto Te (RH recursion 
Endif 


Print Chr$(B); 

TS=TS+Chr$(B) 

a 

Print AL(Cx%, бу ии. 

If N%=Cx%-1 !d4 allows only one use of this IF loop 
Goto Te 


Lolim%= 
Hilim%=999 
Numlen%=3 
GNumber_entry 
TS=TS+Pnum$ 
Return !@Track_entry 
! 
j Comms text entry 
Procedure Text entry  !d& need to enter with I%= to number of text lines. 
@Show_cmd 
@Cclear_middle 


N%= 
Ccomtxt2: 
Mtxt$z' Enter text? (max "+Str$(I%)+" lines) " 
Aflert 2 .HMtxt5.0Ü," Yes No (BL.U72 
If A=1 
Print At(2,N%+3);StrS(N%)+": "; 


Form inputs ts ran 
TS=TStUppers 17512 
Ine nN- 
bee m d !## allows only I% lines of text 
Goto Ccomtxt2 
Endif 
Endif 
C TIE 
TS=is? sr" 
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Return 
| 
| allows completion of command string using same menu 
Procedure Partial 

Menu Off '$% displays menu bar in "normal" mode 

@Show_cmd 

Do 

On Menu 

Loop 

REECH 


SE EE ee Et 


i COMMAND PROCEDURES 
Maine lr iii TT rim 
| ASTAB sub-proc 
Procedure Bbearing 

Brng!-False | 

Mtxt$=" Bearing & Range FROM... ' 


Brng: 
75:52 Mtxt$,0,"Force Position Track",A 
| 
If A-1 Then 
TS=TS+'"FORCE ' 
65hov) cmd 
CstrS="Enter Force name: " 
2 603/-Int(Len(Cstr$)/2),Ytexte):Cstr$: 
Herm Input 5,Fi$ 
TŞ-TŞtUpper$(Fi$) 
Enda £ 
1 


If A=2 Then 
1 167 POSITION " 
55:06 At(20,ll),Lat.str$: 
(Lat check 
Ene Ati 20,12):Long_str$; 
@Long_check 
T5-T$TUpper$(Lat$)tr" "+Uppers(Long$) 
Endif 
! 
If A23 
TS=TS+"TRACK " 
@Show_cmd 
Cstrs="Enter track number: ' 
Print At(37-Int(Len(Cstr$)/2),Ytext%);Cstrs; 
@Track_entry 
Endif 
Cir A 
@Show_cmd 
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If Not Brng! !## allows ONE loop in this procedure. 
Eescht Bearing & Range TO... " 
Brng!-True 
(8Cclear. middle 
TS=TS+" " 
Goto Brng 
Endif 


Return 
1 


ASTAB sub-proc 
Procedure Ccpa 


Cpa!=False 
Mtxt$z' CREARON >: 
| 


Cpa: 
Alert 2,Mtxt$,0," EForce Track min 
1 
If A=1 Then 
TS=TS+'""FORCE " 
@Show_cmd 
CstrS="Enter Force name: '! 
Print At(37-lInt(Len(Cstr$)/2),Yt€X000/98Er$: 
BOB uu te e 
T$-T$4Upper$(Fi$) 


Endif 

1 

If A=2 
TS=TS+"TRACK " 
@Show_cmd 


EStios Enter track number: " 
Print At(37-Int(Len(Cstr$)/2) tem) GER D 
@Track_entry 
Endi £ 
CIPRA 
1 
If Not Cpa! !## allows ONE loop in this procedure. 
Mtxt$z" CPA tOo... i 
Cpa!=True 
@Show_cmd 
@Cclear_middle 
TS=TS+" 11 
Goto Cpa 
Endif 


Return 
| 


ASTAB sub-proc 
Procedure Cclassify 


@Show_cmd 
Cstr$="Enter track number: " 


Print At(37-Int(Len(Cstr$)/2),Ytextğ):Cstr$: 
(Track entry 
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(8Cclear. middle 
6Shov cmd 
CstrS="Enter classification: " 
meme At(37-Intí(Len(Cstr$)/2) Ytext%);Cstr$; 
oa Input 5,F1$ 
T$=TS+" "+Upper$(F1$) 
Return 
1 
i norıbusub-proc 
Procedure Ddrop 
Alert 2," DROP track... ",0,"Old Range Track 48 ",А 
1 
If A=1 Then 
TS=TS+""OLD " 
Eshow_cmd 
€str$=" (range); enter track number: " 
Print At(37-Int(Len(Cstr$)/2),Ytext%);Cstrs; 
(Track entry 
TS=TS+'!! " 
(8Show. cmd 
€Cclear middle 
Cstr$="(thru); enter track number: " 
52007 At (37-Int(Len(Cstr$)/2) Ytext%);Cstr$; 
GTrack entry 
Endif 
| 
If A=2 Then 
TŞ=T$+" RANGE " 
@Show_cmd 
Cstrs="Enter track number: " 
58007 At(37-Int(Len(Cstr$)/2),Ytexte):Cstr$: 
(Track, entry 
TS=TS+" " 
(Show, cmd 
(8Cclear. middle 
Cstr$="(thru); enter track number: " 
Print At(37-Int(Len(Cstr$)/2) Ytext%);Cstr$; 
(Track entry 
Ends 
l 
If A=3 
Mtxtşe" Drop a track? " 
Ddrop: 
Alert 2,Mtxt$,0," Yes No",B 
If B=1 
Cstr$="Enter track number: " 
Print At(37-Int(Len(Cstr$)/2),Ytext%);Cstr$; 
(Track entry 
Mtxts=" Drop another track? " 
@Show_cmd 
T$-2T$4" " 
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Goto Ddrop 
Endif 
Endif 
Clr A,B 
Return 
1 
1 


ASTAB sub-proc 
Procedure Pprint 


Alert 2," PM E по дин уд ит Plot 
If A=1 
TS=TS+F ASTAB- " 
Blertez." Select... "wo “ESTAS Ga All" БВ 
If B=1 


Cstr$="Enter ASTAB number: " 
Print At(37-Int(Len(Cstr$)/2),Ytexte):Cstr$: 
Lolim%=0 
Hilim%=6 
Numlen%=1 
@Number_entry 
TS=TS+Pnums 
Endaf 
If B-2 
TS=TS+" ALL" 
Endif 
Endif 
Clr B 
1 
If A=2 
1:-IEEOT”" 
Alerte?! Plot.o WO, “Interval contrate ls 
If B=1 
To ENTERA 
@Minute_entry 
Endif 
Endif 
Gir... 


Return 

1 

| Graphics sub-proc 
Procedure Ccenter 


Mtxt$e" CENTER (000060 m UU 
Alert 2,Mtxt$,0,"FORCE POSITION TRACK',A 
If A-1 Then 


T$=T$+"FORCE" 
Print At 3D OPES 
Print At(17,10);"Enter name of force to be centered: '; 
Ковпи вики илс 
TS=TSt" "-UpnserSCELIS) 
Endif 
If A-2 Then 
TS=TS+"POSITION" 
Print At(30,9);"Center pillov cua ii 
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Print 20 20,l1):Lat strŞ: 
Brat check 
meine At(20,12);Leng_strs; 
@Long_check 
SIS "+Uppers(Lats)+" "+Uppers(Long$) 
Endif 
If A=3 Then 
TS=TS+"'TRACK " 
CstrS=TSt"at (track number): " 
Pane Ati s/-int(Len(Cstr$)/2),Ytext%);Cstrs; 
@Track_entry 
Endif 
Clr A 
Return 
) 
: Graphics sub-proc 
Procedure Rradius 
Pine At(35,8);TS 
15 51::20,10):"Enter radius of plot (1-9999 nmi): "; 
Lolim%=1 
Hilim%=9999 
Numlen%=4 
€Number entry 
TS=TS+Pnums 


Return 
| 


oncohadesssubD-oBoS 
Procedure Sshift 

Ezint At(35,6):7T$ 

| 


Print At(10,8);"Enter distance to shift center of plot (1-9999 nmi): ''; 
Lolim%=1 

Hilim%=9999 

Numlen%=4 

@Number_entry 

T$=T9+Pnum$ 

| 


Prenat ( 1599)-"Enter direction of shift (0-359 True): ", 
Lolim%= 

Hilim%=359 

Numlen%=3 

@Number_entry 

TS=TSt+" "+Pnum$ 


Return 
1 


Procedure Llabel 
6Label("" *Label_return$) 
it Inmemwr (Babel return$,"al_lab")>0 
NS =ES+ "ATAR 
Enea f 
If Instr(Label return$,"large lab")»50 


Graphics sub-proc 
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T$S=TS+"LARGE" 
Endif 
If Instr(Label return$,"smalll1a57” 
TS=TS+'"'SMALL" 
Endif 
If InstriLabeliretulm 01016 DAD 
T$-T$4"OFF" 
Ene 
Return 
1 
| Label DIOX 
Procedure Label(Preselect$,Postselect) 
Hidem 
Local 
Screen$ Temp$,Xm,Ym,Button$,Radiıol.old$,Radio2.old$,Radio3.old$ ,Radio4 old$,- 
Radio5. old$,Radiol. new$,Radio2,. nev$,Radio3, new$,Radio4 new$,Radio5 new$,Stat, exi 


Sget Screens 
Print At(36,6);T$ 
Local All lab stat$,All lab. stat 
Local Large. lab, stat$,Large. lab stat 
Local Small, lab. stat$,Small. lab. stat 
Local Off EE 
@Drawshapes_label 
@All_lab(0) 
GLarge. lab(0) 
@Small_lab(0) 
COff_lab(0) 
Showm 
Do 
If Mousek=1 
Mouse Xm,Ym,Void 
(Find button, label(Xm,Ym,*Button$) 
Tft Buttons="al laps 
If All_lab_stat 
@All_lab(0) 
Let All. lab. stat-False 
Let All. lab. statS$z'' 
Let Stat exit-False 
Else 
GAlI lab(-1) 
Let All. lab.stat-True | 
Let All lab.statşc"al lab" 
Let Stat_exit=True 
Endif 
Endif 
If Button$="large_lab" 
If Large_lab_stat 
GLarge lab(0) 
Let Large lab stat-False 
Let Large lab stat$-''" 
Let Stat exit-False 
Else 
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Endif 


@Large_lab(-1) 

Let Large_lab_stat=True 

Let Large_lab_stat$="large_lab" 
Let Stat, exit-Tirue 

Endif 


If Button$="small_lab" 

If Small lab stat 
GSmall lab(0) 
Let Small lab statzFalse 
Let Small. lab. stat$z'' 
Let Stat exit-False 


Else 


Endif 


@Small_lab(-1) 

Let Small_lab_stat=True 

. Let Small_lab_stat$="small_lab" 
Let Stat exit-True 

Endif 


mi Duttonş”"off.lab" 

HÜ Zİ lab. stat 
(8022 1аы(0) 
Let Off_lab_stat=False 
het Off lab_stats="""' 
Let Stat_exit=False 


Else 


GOff lab(-1) 

Let Off _ lab_stat=True 

Let Off_lab_stat$="off_lab" 
Let Stat_exit=True 


Endif 

Endif 
Bndif 
Exit If False 
Exit If (Button$="al_lab") 
Exit If (Button$="large_lab") 
Exit If (Button$="small_lab") 
Exit If (Button$="o0ff_lab") 
Pause 4 

Loop 


m exit 
Temp$-Temp$-t'"("crAll lab stat$-')' 
Temp$=Temp$+"("+Large_lab_stat$+"")" 
Temp$=TempSt+" ("+Small_lab_stat$t!')" 
Pemps=Tempst'"'("+0ff lab stat$S+")" 
*Postselect=Temp$ 


Endif 
Do 


GFind button, label(Xm,Ym,*Button$) 
Ext lim stat exit 


Loop 
Pause 7 
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SUS Screens 
Return 
Procedure Drawshapes_label 
Box 160,86,451,30 
Return 
Procedure All_lab(Selected) 
Draw. text. in box('"ALL'"7790,74.0,1,6 2125172 Selectae 
Return 
Procedure Large lab(Selected) 
Draw, text in box("LARGE'",251,74,0,1,6,4,1,2,Selected) 
Return 
Procedure Small lab(Selected) 
(Draw, text, in box("SMALL'",320,74,0,1,6,4,1,2,Selected) 
Return 
Procedure Off, lab(Selected) 
Draw, text, in box('"OFF",397,74,0,1,6,12,1,2,Selected) 
Return 
Procedure Find button label(X mouse,Y mouse,Button, selected) 
If (X mouse»176) And (X mouse«228) And (Y mouse»64) And (Y mouse«78) 
*Button selected-"al lab" 
Goto Found. button, label 
Endir 
If (X_mouse>245) And (X_mouse<297) And (Y_mouse>64) And (Y_mouse<78) 
*Button_selected="large_lab" 
Goto Found, button, label 
Endif 
If (X mouse»314) And (X mouse«366) And (Y mouse»64) And (Y mouse«78) 
xButton selectedF"small lab" 
Goto Found.button.label 
Endif 
If (X mouse»383) And (X_mouse<435) And (Y_mouse>64) And (Y mouse«78) 
*Button_selected="off_ lab" 
Goto Found_button_label 
Endif 
xButton.selectedz" " 
Found_button_label: 


Return 
1 


Graphics sub-proc 
Procedure Llob 
Mtxts=" LOB i 
Alert 2,Mtxt$,0, "ALL FORCE OFF" ,A 
If A=1 Then 
TS=TSFPUALL" 
Endaf 
If A=2 Then 
TS=TS+"FORCE" 
Endif 
If A=3 Then 
TS-TST'OFF' 
Endaf 
Clr A 
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Return 
1 
Graphics sub-proc 
Procedure Mmark_track 
Mtxts=" MARK TRACK E 
2, Mtxto,0, "ENEMY FRIENDLY NEUTRAL" ,A 
If A=1 Then 
TS=TS+"ENEMY " 
Endif 
If A-2 Then 
TS=TS+"FRIENDLY " 
Endif 
If A=3 Then 
TS=TS+"NEUTRAL " 
Endif 
PSs" NETS 
Clr A 
l 
Alert 2,T1$,0,"AIR SUB SURFACE" ,A 
If A=1 Then 
MOSTS+ "AIR " 
Erdif 
If A=2 Then 
BEEUSI'SUB " 
Endif 
If A-3 Then 
1 -:57 SURFACE " 
Endif 
5 — er" (at position...)" 
5220 ::20-IntfLen(Cstr$)/2),Ytexts):Cstr$ 
Inc Ytext% 
156 ytext% 
Print At(27,Ytext%);"Enter unit's latitude: "; 
@Lat_check 
texts 
Print At(27,Ytext%);"Enter unit's longitude: '; 
@Long_check 
TS=T$+Uppers$(Lat$)+" "+Upper$(Long$) 
Inc Ytext% 
Print At(23,Ytext%);'"Choose name for this track: "; 
Born Input 5,F1$ 
Inc Ytext% 
Print At(17,Ytext%);"Choose second name for this track (optional): "; 
Form Input 5,Mtk_name2$ 
TS=TS+" "+Upper$(Fi$)+" "+UpperS$(Mtk_name25$) 
Clr Aà 


Return 
| 


| Graphics sub-proc 


Procedure Mmark bearing 
Print At(35,Ytext%);TS 
me 
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e AA 
Print At(25,10); "Choose name for this earring: 1 
pormo Input SPEIS 
TS=TStUpperS (FIS) um 
Inc Ytext% 
GBearing entry 
Return 
1 
Graphics sub-proc 
Procedure Uunmark_track 
Print At(30,8);T$ 
Prant At(15,10)»+"Enter (first) name of Mtrack tomunmark nir 
Form Input Bö 
TS=TS+UpperS$(FiS) 
Return 


1 


Graphics sub-proc 
Procedure Pplace 
Mtxts$=" PLACE " 
Alert Z,MtxtS,0,"XMARK CIRCLE GRID",A 
If A=1 Then 
TS=TS+"XMARK " 
Endif 
If A=2 Then 
T$=TS+"CIRCLE " 
Endif 
If A=3 Then 
Тест исти 
Endif 
CURA 
l 
Mtxt$=" HETŞE" on tt 
Alert 2,MtxtS,0," FORCE POSITION TRACK" A 
If A=1 Then 
TS=TS+t"FORCE " 
Endaf 
If A=2 Then 
TS=TS+" POSITION " 
Endif 
If A=3 Then 
TS=TS+"TRACK " 
Endif 
Gina 


Return 
1 


Graphics sub-proc 
Procedure Ppim 
Mtxt$z' PM i 
Alert 2,Mtxt$,0,"DEFINE ADD CHANGE",A 
If A=1 Then 
oxı Pee ENE! 
Det 
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If A=2 Then 
TS=TS+"ADD" 

Endif 

If A=3 Then 
TS=TS+'"' CHANGE" 

Endif 

MEE A 


Return 
1 


1 


player COMMS sub-proc 
Procedure Iintell 
5275::2)" Intelligence report for...",0,"Blue Orange ",A 
If A=1 Then 
TS=TS+'"BLUE" 
Endif 
If A=2: Then 
TS=TS+"ORANGE" 
Endif 
Clr A 
1 
Get 0,140,639,162,Canex_boxs 
Alert 2," Select... "0, "View Time continue", ,A 
If A-1 Then 
(Show cmd 
Cstrs="Enter view number: ! 
Print At(37-Int(Len(Cstr$)/2),Ytexte):Cstr$: 
Horm input 5,15 
TS=TS+" "+Uppers(FiS)+" " 
1%=20 
6Text entry 
Endif 
If A=2 Then 
(Time entry 
1%=20 
GText entry 
T$=T$+" | 
Endif 
Clr A 
Put 0,140,Canex_boxs 


Return 
I 


player COMMS sub-proc 
Procedure Mmessage 
Alert 2," Message to... ",0,"Blue Orange ",A 
If Azı 
TŞ-TŞE"BLUE " 
Enea f 
If A=2 
TS=T$+" ORANGE " 
Endif 
Clr A 


Sm 


6Shov cmd 

Cstr$="Enter view number: " 

Print At(37-Int(Len(Cstr$)/2),Ytext%) ;Cstrs; 
Form Input 5,Fi$ 

TOTS Ee II 

1%=8 

(Text entry 


Return 
| 


| Umpire sub-proc 


Procedure Ppause 

Mtxt$=" PAUSE Pause: game pauses. " 
Mtxt$=Mtxt$+"Lock: on stations. " 
Mtxt$=Mtxt5+"Refresh: of remote db." 
Alert 2,Mtxt$,0,'"PAUSE LOCK REFRESH",A 
If A=2 Then 

TS=TS+"LOCK " 
Endif 
If A=3 Then 

TS=TS+ "REFRESH " 
Ens 
Clr A 


Return 
1 


| Umpire sub-proc 


Procedure Eend 
Mtxt$=" END End: ends game, " 
MtXtS=MtXxtS No: no autorlogou rman 
MtxtS=Mtxt$S+"Yes: with auto rogout y 
Alert Z,HtxtS,0,"END NO YES" A 
If A=2 Then 
DSzrSTU NOME 
Endaf 
If A=3 Then 
TS=IS+ YESHU 
Enc 
Clr A 


Return 
l 


Umpire sub-proc 

Procedure Ccopy 

EGCopy("" ,*Copy_return$) 

If Instr(Copy_return$,"all 6000 
DSSIScU AM 

Endif 

1f Instr(Copy_return$,"blue_ copian 
TS=TS+"BLUE"! 

Endir 

If Instka(Copy_returns "orange No 
TS=TS+" ORANGE!" 

Endif 

If Instr(Copy_returns, "of eacepe 0 
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TS9=TS+ "OFF" 

Endi f 
Return 
1 
Copy DIOX 
Procedure Copy(Preselect$,Postselect) 

Hidem 

Local 
Screen$ Temp$,Xm,Ym,Button$,Radıol old$,Radio2 old$,Radio3, old$,Radio4 old$,- 
Radio5 old$,Radiol. new$,Radio2. nevw$,Radio3, new$,Radio4. new$,Radio5, newS,Stat exi 


Bget Screen$ 
Punt At(38,6):;T5 
Local All cop.stat$,All cop.stat 
Local Blue.cop.stat$ Blue.cop.stat 
Local Orange_cop_stat$,Orange_cop_stat 
£ 01 cop.stat$ Off cop stat 
GDrawshapes. copy 
GAlI cop(0) 
GBlue cop(0) 
GOrange. cop(O) 
(0022 сор(0) 
Showm 
Do 
If Mousek=1 
Mouse Xm,Ym,Void 
(aFind button, copy(Xm,Ym,*Button$) 
5 Büttonş”"all cop" 
158311 cop-stat 
GAlIl cop(0) 
Let All cop.stat-False 
Let All cop statsz'"'" 
Let Stat exit-False 
Else 
@All_cop(-1) 
Let All_cop_stat=True 
Let A11_cop_stat$="al1_cop" 
Let Stat_exit=True 
Endif 
Endif 
If Button$“"blue сор" 
üs lüe cop stat 
@Blue_cop(0) 
Let Blue_cop_stat=False 
Let Blue_cop_stat$="" 
Let Stat exit-False 
Else 
GBlue cop(-1) 
Let Blue cop stat-True 
Let Blue cop stat$z2'blue cop" 
Let Stat exit-True 
Endif 
Bur 
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If Button$="orange_cop" 

If Orange_cop_stat 
@Orange_cop(0) 
Let Orange_cop_stat=False 
Let Orange_cop_stat$="" 
Let Stat_exit=False 


Else 


Endif 


GOrange cop(-1) 

Let Orange. cop. stat-True 

Let Orange cop stat$-'orange. cop" 
Let Stat, exit-True 

Endif 


If Button$-'off cop!" 

IF Off cop erat 
GOff cop(0) 
Let Off cop stat-False 
Let Off cop stat$-'' 
Let Stat exit-False 


Else 


GOff cop(-1) 

Let Off_cop_stat=True d 
Let Off eg 
Let Stat_exit=True 


Елд12 

Епсир 
Endit 
Exit If False 
Exit If (Buttons=" all icop") 
Exit If (Button$="blue_cop") 
Exit If (Button$="orange_cop") 
Exit If (Buttons="OtE COD) 
Pause 4 

Loop 


If Stat exit 
Temp$=Temp$+""("+A11_cop_stat$+")" 
Temp$=Temp$+"'("+Blue_cop_stat$+")" 
Temp$=Temp$+""("+Orange_cop_stat$+")" 
Temp$=Temp$+"("+O0ff_cop_stat$+")" 
*Postselect-Temp$ 


Endif 
Do 


GGFind button, copy (Xm, Ym,*Button$) 
Exit If Stat exit 


Loop 
Pause 7 


Sput Screen$ 


Return 


Procedure Drawshapes_copy 
Box 149,86,471,30 


Return 


Procedure All cop(Selected) 
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Bray text in box("ALL",183,74,0,1,6,16,1,2, Selected) 
Return 
Procedure Blue cop(Selected) 
Grau text in box('"BLUE'",256,74,0,1,6,12,1,2,Selected) 
Return 
Procedure Orange cop(Selected) 
(Draw text in box('"ORANGE'",324,74,0,1,6,4,1,2,Selected) 
Return 
Procedure Off cop(Selected) 
GDrav text in box('"OFF'",413,74,0,1,6,16,1,2,Selected) 
Return 
Procedure Find button copy(X mouse,Y mouse,Button, selected) 
If (X mouse»165) And (X mouse«225) And (Y mouse»64) And (Y mouse«78) 
^Button, selected-"'all cop" 
Goto Found button, copy 
Əndif 
If (X_mouse>242) And (X_mouse<302) And (Y_mouse>64) And (Y_mouse<78) 
AButton_selected="blue_cop" 
Goto Found_button_copy 
Endaif 
If (X mouse»318) And (X mouse«378) And (Y mouse»64) And (Y mouse«78) 
*Button selected-"orange. cop" 
Goto Found button copy 
Endif 
If (X mouse»395) And (X mouse«455) And (Y mouse»64) And (Y mouse«78) 
*Button selected-'off сор" 
BEoto Found button, copy 
Endif 
*Button selected-z" " 
Found button, copy: 


Return 
| 


Umpire sub-proc 


Procedure Rrelocate 
Ent At(35,8);T$ 
Print At(20,10);"Enter name of unit to be relocated: "; 
15107 input 5,Fi$ 
| 


EBint Atf(20,11):Lat.str$, 
@Lat_check 
! 


Print At(20,12);Long str$; 
long check 
1 


TS=TS+Upper$(Fi$)+" "+Upper$(Lat$)+" "+Upper$(Long$) 
Mtxt$='""RELOCATE relative to another unit?" 
2776767 HtxtŞ$,0," YES NO" A 
If A=1 Then 
Print At(20,14);"Relative to which unit? "; 
Porm Input 5,Fi$ 
T$=T$+" RELATIVE "+Upper$(Fi$) 
Endif 


2 


Clr à 


Return 
! 


; Umpire sub-proc 


Procedure Ttime 

Print At(37,8):T$ 

Print At(15,10);"Enter time of game minute (10-400 seconds): ", 
Lolim%=10 

Hilim%=400 

Numlen%=3 

@Number_entry 

T$-T$-Pnum$ 


Return 
J 


Umpire sub-proc 
Procedure Sset 
Mtxt$z" SETUBaSti ho"outpuc until ии 
Mtxt$=Mtxt$+'"Normal: continuous messages. " 
MtxtS=Mtxt$t"Zulu: time change." 
Alert 2 TEUXES, 0. FAST NORU2EOZUEU” 
If A=1 Then 
T$=T$+" FAST " 
@Sset_fast 
Endif 
If A=2 Then 
TS=TS+"NORMAL " 
Еркин 
If A-3 Then 
TS SU 
@Sset_zulu 
Endif 
Clr A 


Return 
1 


Umpire sub-proc 

Procedure Sset_fast 

Print At(33,8);TS$ 

Print At(12,10);"Enter game minute when output should start (1-999099 
Lolim%=1 

Hilim%=999 

Numlen%= 

@Number_entry 

T$=T$+Pnum$ 


Return 
l 


? Umpire sub-proc 


Procedure Sset zulu 


Mtxtşe SET ZULU d 
Alert 2,Mtxt$,0,'" AHEAD BACK ",A 
If A-1 Then 


TS=TS vane Apis 
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Else 

TS=TS+"BACK " 
Endif 
50006 At(30,8):1$ 
i 


At Aat(25,10);"Enter hours (0-23): "; !## hour entry 
Lolim%=0 

Hilim%=23 

Numlen%=2 

@Number_entry 

TS=T$+Pnum$ 

1 


ESL At(25,11);" Enter minutes (0-59): '; (ВИ minute entry 
Lolim%=0 

Hilim%=59 

Numlen%=2 

@Number_entry 

Ди 15-" "+Pnum$ 

| 


Cir A 


Return 
| 


Umpire sub-proc 


Procedure Enable_disable 
GF check 
Print At(30,Ytext£);T$ 
| 


Enstr(T$S," DISABLE ") 
(Minute entry 
TS=TS+!! " 
Endif 
1 
Pramc At(25,Ytext%+2):"Enter equipment name: ", 
Porm input 5,Fi$ 
Т5=Т54Јррег5(Е15) 


Return 
1 


Umpire sub-proc 
Procedure Expend_replenish 

GF check 

Print At(30,8);T$ 

Print At(25,10);"Enter amount (number): ", 
Lolim%= 

Hilim%=999 

Numlen%=3 

(Number, entry 

1 z175“Pnum$ş”" " 

( 


Print At(25,11);"Enter equipment name: ", 
Form Input 5,Fi$ 
T$-T$-Upper$(Fi$) 

Return 
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| 
` 
l 
' #PHHHHHHHHHH Second level Procedures for FORCE menu 'A' items НФР ТЕРРОР НЫН 
1 
Maneuvers sub-proc 
Procedure Ccourse 

Print At(33 706” Ic 

Ytext%=YtextS+2 

@Course_entry 


Inc Ytext>% 
l 


Mtxt$=" Enter Course change... " '## for alert box text 
Alert 2 Hexto,l1, 1101752727 7 
If A=2 Then 
(aTime entry 
Endif 
1 
Clr A 
Return 


| Maneuvers sub-proc 


Procedure Sspeed 
Print At(33 Ytexts);TS 
Ytext%=Ytext%+2 
(Speed entry 


Inc Ytext% 
1 


Mtxt$=" Enter Speed change... " '## for alert box text 
Alert le Ee “EATERS Ye 
If A=2 Then 
GTime. entry 
Endif 
Gir A 
Return 


i Maneuvers sub-proc 


Procedure Pproceed 
Alert Z," "TIŞT"U” 0, "COURSE 7 
Prinul 33 .Y065-6 7:17 
Ytext%9=Ytext3%+2 
1 
If Azı 
Course entry 
GDistance, entry 


Endif 

If A=2 
Print At(23,Ytext%);Lat_str$; 
GLat check 


Inc Ytext% 
Prints, texto). Lonas tro: 
GLong check 
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NÜ Ytexto 

TS$=T$+Upper$(Lat$)+" "+Upper$(Long5$) 
Endif 
CAN 
) 


Alert 2," select ... IS US PEBDA TIME continue", A 


! 
If Azı 
Speed entry 
(Tc choice 
Endif 
! 
If A=2 
(aTime entry 
Endif 
1 
Clr A 


Return 
| 


Maneuvers sub-proc 


Procedure Sstation 
Print At(33,Ytext%):TS 
Ytext%=Ytext%+2 
@Bearing_entry 
Print At(33,Ytext%+1);"FROM (guide) ..." 
Ytext%=Crslin 
Print At(22,Ytext%);"Enter name of addressee (unit): " 
Horm ¿input 5,F1$ 
TS=T$+" "+Uppers(Fi$) 
Distance entry 
GTc choice 


Return 
1 


. Maneuvers sub-proc 


Procedure Ssearch 
@Show_cmd 
Print At(28,Ytext%);"Enter name of plan: "; 
perme input 5,Fis 
TS=T$+UpperS(FiS) 
Ytext%=Crslin 
(Tc choice 


Return 
1 


Maneuvers sub-proc 


Procedure Uuse 
Print At(33,Ytext%);T$ 
Inc Ytext% 
Inc Ytext% 
Print At(28,Ytext%);"Enter name of plan: "; 
Hom Input 5,F ius 
T$-T$-Upper$(Fi$) 
Ytext%=Crslin 


ә 


@Use_time_choice 


Return 
1 


Maneuvers sub-proc 


Procedure Eexecute 
Print At(33,Ytext%);TS 
Inc Ytext% 
Inc Ytext% 
Print At(22,Ytext%);"Enter name of contingency plan: "; 
Form In US, FIS 
T$=T$+Upper$(Fi$) 
Ytext%=Crslin 
@Tc_choice 


Return 
] 


Sensors sub-proc 
Activate/Silence sub-sub procedure 
! Note: Activate & Silence have own menus. 
4 
Procedure Eemitter 
@Show_cmd 
Alert 2," select ... "3 UTIME <name> continue“ a 
If A=1 
GTime entry 
EEHS 2 
If A=2 
Print At(27,Ytexte):"Enter name of emitter: "; 
Form Input sS es 
TESTS Upe Ra RI S 
Endir 
Clr A 


Return 
1 


Activate/Silence sub-sub procedure 


Procedure Ssurvsat 
@Show_cmd 
Mtxt$z' NET Shi T 
1 


Print At(25,Ytext%);"Enter name of Survsat: '; 
Form Input EE 

T$=T$+Upper$(Fi$) 

Inc Ytext% 

Print At(28,Ytext%);"Enter force name: "; 

Form Inputs EiS 

T$=T$+" "+Uppers(FiS) 

1 


@Cclear_middle 
@Show_cmd 
Alert 2,Mtxt$,0,"ORBITAL STATNARY",A 
If A=1 
TS=TS+" ORBITAL " 
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6Shov cmd 
Cstr$="From latitude: " 
250770 "€f40-“Int(Len(Cstr$)/2),Ytexte):Cstr$: 
6Lat check 
TS=TS+UpperS(Lat$) 
Satho—-CstrstUppers(Lats)+" To latitude mi 
2552110 At(3/-=Int(Lení(Cstr$)/2) Ytext%);Cstr$; 
@Lat_check 
TS=TS+" "+Upper$(Lat$) 

Endif 

1 

If A-2 
T$=T$+'" STATIONARY" 
@Show_cmd 
(Time entry 

Ener | 

Clr A 


Return 
| 


Procedure Jjam 
@Show_cmd 
Print At(28,Ytext%);"Enter radar name: "; 
Earm Input 5,FisS 
171  “Upper$(Fi$) 


Return 
t 


Procedure Ccease 
Cstr$="Cease jamming radar" 
Erin: At(40-Int(Len(Cstr$S)/2) ,Ytext%);Cstr$ 
inc Ytexte 
Inc Ytext” 


Sensors subzmbpoc 


Sensors sub-proc 


Bert 2," select ... 15:77 remeecontinue",A 


If A=1 
GTime entry 
Endif 
If A-2 
Print At(27,Ytext%);"Enter name of radar: '; 
ED ınput 5,Р15 
T$=T$+" "+Upper$(Fi$) 
Endif 
Clr A 


Return 
t 


1 
Ргоседиге Еепсоп 
@Show_cmd 


Print At(28,Ytext%);"Enter plan name: "; 
Horm Input 5,Fi$ 


T$=T$+" "+Upper$(FiS$) 
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Sensors sub-proc 


ДЕ ни ЕХЕИРТ any pune seo 
EMC: 
@Cclear_middle 
Alert 2717765007 yes Non 
If Azı 
TS=TSt+" EXEMPT" 
CstrS="EXEMPT which unit?: " 
Print At(40=Int(Len(Cstrs)/2) Wteo 70 
Form En: 
TS=TS+" "+Uppers$(Fi$) 
Mtxt$=" EXEMPT more units? " 
@Show_cmd 
Goto Emc 
Endif 
| 
Clr A 
Return 
1 
Engage sub-proc 
Procedure Ffire 
@Show_cmd 
Print At(19,Ytext%);"Enter number of weapons to fire (1-99): "; 
Lolim%=1 
Hilim%=99 
Numlen%= 
@Number_entry 
T$=T$+Pnum$ 


Ytexte-CYslin 
| 


Print At(15,Ytext%);"Enter name of weapon; TLAM, MK48, HRPON, etc: 


Form Tru ET 
Tş-TŞ-" 1515061701 sel) " 
Ytext%=Crslin 
I 
(Cclear. middle 
6Shov cmd 
Mtxtşe" NETS! | 
Alert 2.MtxtŞ,0,"NUCLEAR CRUISE TORPEDO",A 
If Azı 
TS=TS+"NUCLEAR " 
@Show_cmd 
MtxtS=MtxtS+'"NUCLEAR " 
Alert 2,Mtxt$,0,"CRUISE TORPEDO" ,B 
Endif 
1 
If A=2 Or B=1 
TS=TS+"'CRUISE " 
@Show_cmd 
MtxtS=Mtxt$+'"'CRUISE missiles " 
Alert 2,Mtxt$,0,"AT BEARING" ,C 
| 


TOZ 


, 


If C=1 
MeE=TS+"AT " 
Cstr$="at which shorebase? " 
Print At(37-Int(Len(Cstr$)/2),Ytext?);Cstr$; 
20 input 5,Fış 
T$-T$tUpper$(Fi$) 
Ytext%=Crslin 
@Show_cmd 
Endif 
1 


If C=2 
T$=T$+"BEARING " 
Ytext%=Ytext%+2 
@Bearing_entry 
@Show_cmd 
MtxtS=Mtxtst! BEARING '"-4Pnum$ 
PST 2, ,Mtxt5,0," DELAY RANGE ",D 
(Cclear. middle 
! 
If D=1 
iş?" DELAY " 
5.5: Gelay... " 
Print At(40-Int(Len(Cstr$)/2) Ytext%);Cstr$ 
Minute entry 
EShovw_cmd 
Endif 
1 
If D=2 
TS=TS+" RANGE" 
2: range...” 
Efint At(40-Int(Len(Cstr$)/2),Ytexte):Cstr$ 
Ytext%=Ytext%+2 
@Distance_entry 
6Shov cmd 
Endif 
Endif 
Endif 
| 
If A=3 Or B=2 
TS=TS+"TORPEDOES " 
@Show_cmd 
Cstr$="at track number: " 
Print At(37-Int(Len(Cstr$)/2),Ytext%);Cstr$; 
6Track entry 
Ytext%=Crslin 
Endif 
CA B, C, D 
@Cclear_middle 


Return 
1 


Engage sub-proc 


Procedure Llaunch 


BOS 


Hö "ETS 


Alert 2,Mtxt$+",.. ",Ü, "NUCLEAR CE Ba ии Ee 


If Azı 
TSSTS+ "NUCLEAR " 
A=2 
En 
1 
If à=2 
TS=TS+"CRUISE " 
@Show_cmd 
CstrS="Enter number of missiles to fire (1-99): 
Print At(40-Int (Len(Cstrs) /2),Ytext=);Cstrs: 
Lolim%= 
Hilim%=99 
Numlen%=2 
(Number entry 
TS=T$+Pnums 
Yeexte”Crslın 
Cstr$="Enter name of missile: " 
Print At(39-Int(Len(Cstr$)/2),Ytext%) ;Cstrs; 
Porm Input SEIS 
T$=T$+" UB (FIST. " 
(Cclear middle 
@Show_cmd 
@Cruise_menu 


A 


ode iii used to return from Cruise.menu.read 


Ytext%=8 

| 

If Bar$(Menu(0))z" BOL" 
TS-TS$4"BOL BEARING " 
6Shov) cmd 
(Bearing entry 
TS-TS4'" RANGE" 
Cstr2$="seeker on..." 
@Cclear_middle 
@Show_cmd 
Ytext%=8 
Print At(40-Int(Len(Cstr2$)/2) Ytextz);Cstr2$ 
Ytext%=Ytext%+2 
(aDistance entry 
TS=TS+'" RANGE" 
Cstr2$="seeker off..." 
@Cclear_middle 
@Show_cmd 
Ytext£-8 
Print At(40-Int(Len(Cstr2$)/2),Ytext%) ;Cstr2$ 
Ytext%=Ytext%t+2 
@Distance_entry 

En qué 

| 

If Baro 11enu19) — err 
TS=TS+"PL2 POSITION " 
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fLlaunch_entry 

ndi f 

l 

If Bar$íMenu(0))=" PL3" 
ME=STS+"PL3 POSITION " 
aLlaunch, entry 

Endif 

1 

If Bar$(Menu(0))2" PLTWO" 
TS=T$+"PLTWO POSITION " 
@Llaunch_entry 

Endif 

1 

1f Bars(Menu(0))=" PLTHREE " 
T$=T$+"PLTHREE POSITION " 
GLlaunch, entry 

Endif 

l 


If Bar$(Menu(0))=" TLAM" 
TS=TS+"TLAM AT " 
Cstr$="at which shorebase? 
@Llaunch_entry_l 
@Llaunch_entry_2 

Endif 

Endif 

1 

If A=3 

(Ac launch 

Endif 

| 

Clr A 

6Shov cmd 

@Force_menu_a 
Return 
1 
ENGAGE sub-sub proc 
Procedure Llaunch_entry 

6Shov. emd 

5 position..." 

Peer “ 20-Iint(Len(Cstr$)/2),Ytexte):Cstr$ 

Inc Ytext% 

Inc Ytext% 

Print At(23,Ytext%);Lat_strs; 

@Lat_check 

Inc Ytext% 

Print At(23,Ytext%);Long_str$; 

@Long_check 

Inc Ytext% 

T$=T$+Upper$(Lat$)+" "+Upper$(Long$)+" " 

(Show. cmd 

@Cclear_middle 

Cstr$z"Orientation;: " 
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Print At(40-Int(Len(Cstr$)/2) Ytext%):Cstr$ 
Inc Ytext% 

Ine Y texto 

Bearing entry 

| 


@Show_cmd 

@Cclear_middle 

Cstr$=Cstr$+Pnum$+" Semimajor axis: " 
Print At(40-Int(Len(Cstr$)/2),Ytext?);Cstr$ 
Inc Ytext% 

Inc Ytext% 

GDistance entry 

| 


6Shov cmd 

eCclear middle 

Cser-estr?”Pnumşt" Semiminor axis: " 
Print At(40-Int(Len(Cstr$)/2) Ytext%);Cstr$ 
Inc Ytext% 

Inc text. 

(Distance, entry 

1 

@Show_cmd 

@Cclear_middle 

Cstr$=Cstr$+Pnum$ 

Print At(40-Int(Len(Cstr$)/2),Ytext2)) ; Cstr$ 
GLlaunch, entry 2 


Return 


ENGAGE sub-sub proc 


Procedure Llaunch entry 1 


(eCclear middle 

Print At(37-Int(Len(Cstr$)/2) Ytexto)  EStros 
Form Input F Ei 

T$=T$+Upper$(F1$) 

@Show_cmd 

@Cclear_middle 


Return 


ENGAGE sub-sub proc 


Procedure Llaunch_entry_2 


Alert 2," Waypoints desired? ",2," Yes No",A 
N%=0 
If A=1 
GCclear.middle 
Ytext%=4 186 higher on screen than normal to allow many waypoints 
Waypt: 
Inc N% 
Inc Ytext% 
Print At(35,Ytext%);"Waypoint ";N% 
Inc Ytext% 
Print At(23,Ytext%);Lat_str$; 
@Lat_check 
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a AAA 
At (Z23, Y1text%);Long_str$; 
@Long_check 
Inc Ytext% 
DeeS WAYPOINT "+Str$(N3)+" "+Upper$(Lat$)+" "+Upper$(Long$) 
T$=T$+Mtxt$ 
Dec Ytext% 
Dec Ytext% 
Print At(20,Ytext%);Spc(40) 
Eu) Ytext”y 
Print At(20,Ytext%) ;Spc(40) 
Dec Ytext% 
Dec Ytext% 
Print At(30,Ytext£);Mtxt$ 
Alert 2," Another waypoint? ",2," Yes Мо", В 
If B=1 
Goto Waypt 

Endif 

Endif 

Gir A,B 


Return 
1 


Take sub-menu 


Procedure Ttake 
Mtxts="' rs 
7577 - MtxtSt".., ",0,"track # Base" A 
If Acı 
@Show_cmd 
Cstrşe"Enter track number (ie, AB1234): " 
5506 At(37-Int(Len(Cstr$)/2) Ytext%):Cstr$; 
eTrack entry 
Endif 
1 
If A=2 
I ZI?TIBASE " 
@Show_cmd 
Cstr$="Base name: " 
Ekint 26(37-Int(Len(Cstr$)/2),Ytextğ):Cstr$, 
Porm input 5,F1S 
TS-TStUpper$(Fi$) 
Em Gf 
1 
@Show_cmd 
MtxtS="" "4+Ts 
EE excess USING...'',0, "NUCLEAR CONVENTL either",B 
If B=1 
TS$=T$+" NUCLEAR" 
Endi f 
If B=2 
T$=T$+" CONVENTIONAL" 
Endif 
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(Cclear. middle 
GTc. choice 

Clr A,B 
@Cclear_middle 


Return 


HHH Second level Procedures for FORCE menu 'B' items 1HHHHHHHBHHHER 


AIRCRFT sub-menu 


Procedure Ac_launch 


Menu Kill 

Aclaunch!=True !## Set when Launch sequence is called; used to allow 
| '## individual use of Load & Mission procs & A/C Command menu. 
| 

@Show_cmd 

Cstr$-"How many aircraft? " 

Print At(37-Int(Len(Cstr$)/2),Ytext%) ;Cstrs; 

Lolim%=0 

Hilim%=99 

Numlen%=2 

(Number entry 

TS=TS+PnumS 

| 


6Shov cmd 

GCclear middle 

CstrS="Type of aircraft? " 

Print At(37-Int(Len(Cstr$)/2),Ytext%) ;Cstrs; 
Form input 0.5 

TS=TS+" "+Upper$(Fi$) 


@Show_cmd 

@Cclear_middle 

CstrS="Event name? " 

Print At(37-Int(ben(Cstrs)/Z) 266270 0 
Form Input TST EI 

TS=TS+" 21082 Io E " 

| 


@Show_cmd 
Alert 2," Collective name..." OM UE NOSSA 
If Acı 
@Cclear_middle 
Cstr$="Collective name: " 
Print At(37SInt(bLen(CstrS) 2) Ytekt ME 
Porm- Inputs o iiS 
TS=I$tUpper$ (FiS) 
| 


@Show_cmd 
Alert 2," select ... " QO," LEADER MEMBER" B 
If B=1 
T$=T$+'" LEADER " 
A=2 
Endir 
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If B=2 
TS=T$+" MEMBER" 
nc Ytexts 
@Tc_choice 
Endif 
Endif 
1 
1Е А=2 
@Cclear_middle 
Inc Ytext% 
@Course_entry 
@Speed_entry 
TS=TS+" H 
GAltitude, entry 
Endif 


eir A,B 
1 
@Show_cmd 
@Ac_load 
Return 
I 
AIRCRFT sub-menu item 
Procedure Ac. load 
(Cclear middle 


If Aclaunch! '## ensures 'LOAD' occurs only once in T$ 
"= 7" LOAD" 

EMOL f 

N%=0 !dt set item counter 

Acload: 


Mtxt$="Enter the equipment LOAD Сирус елијә)" 
EZ, "Mtxt$,0," LOAD End Load" ,A 
12 А=1 
Mtxt$="LOAD how many of this item? (1-99): " 
Print At(39-Int(Len(Mtxt$)/2),Ytexte):Mtxt$: 
Lolim%=1 
Hilim%=99 
Numlen%=2 
@Number_entry 
Cstr$=Cstr$+" "+Pnums 
| 


Mtxt$e" " 
Print At(37-Int(Len(Mtxt$)/2),Ytextğ):Mtxt$, 
Mtxt$="LOAD "+Pnum$+" (name of item?): " 

5: —/-Iınt(Len(Mtxt?5)/2),Ytexte):Htxt$: 

Form Input 5,Fi$ 

Cstr$=Cstr$+" "+Uppers(FiS) 

Mtxt$=" T 
Print At(37-Int(Len(Mtxt$)/2),Ytext%);Mtxt$; 

Dec Ytext% 

Dec Ytext% 

Print At(40-Int(Len(Cstr$)/2),Ytext%) ;Cstrs; 
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E 
EE 
Inc NS 
ıt NS !## allows only 8 different items 
Goto Acload 
Endif 
Enos 
i 
T$S=T$+Cstr$+" " !## Cstr$ is the Load command string 
@Show_cmd 
Clr A 
i 
If Aclaunch! ! is True if Launch sequence is being used. 
GHMission menu 
Endir 
Return {@Ac_load 
) 
AIRCRFT sub-menu item 
Procedure Aalert 
@Show_cmd 
%=1 
CstrS="Status for vhat aircratud” al 
Print At(37-Int(Len(Cstr$)/2) Ytext%);Cstr$; 
Form Input 5, E15 
T$-T$*" '"4Upper$(Fi$) 
1 
Aalert: 
@Cclear_middle 
Show. cmd 
If N%=1 
Cstr$="How many at 5 minute alert? " 
Endi 
If N%=2 
CstrS="How many at 15 minute alert? " 
Ends 
If N%=3 
CstrS="How many at 30 minute alert? " 
Endif 
1 
ine Nz 
Print At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstrs; 
Lolim%=0 
Hilim%=99 
Numlen£22 
@Number_entry 
TS=TS+" "+Pnums 


11215: 
Goto Aalert 
Endit 
| 
Alert 2," Ordnance.,.. "2u YES No" ,A 
If A=1 


Taro 


CstrS="Enter ordnance (max 24 text characters): " 
Ки At(3Z2-Int(Len(Cstr5)/2) ,Ytext%);Cstr$; 
Form Input 24,F1i$ 
TS=TS+" "+Upper$(Fi$) 
Eng € 
dir A 
Return 
1 
AIRCRFT sub-menu item 
Procedure Hhandover 
@Show_cmd 
Cstr$="Flight name: " 
255: AL(37-Int(Len(Cstr$)/2) Ytext%);Cstr$; 
250 input 5,Fi$ 
TS=TS+" "+Upper$(Fi5) 
GCclear, middle 
(Show. cmd 
ии To... (force name): " 
Print At(37-Int(Len(Cstr$)/2),Ytext%});Cstr$; 
250 input 5,Р15 
T$=T$+" "+Upper$(Fi$) 
Return 
t 
/ AIRCRFT sub-menu item 
Procedure Oorbit 
EShow_cmd 
Cstr$="Enter radius (1-9999 nmi): " 
MAE At(37-Int(Len(Cstr$})/2),Ytext%);Cstr$; 
Lolim%=1 
Hilim%=9999 
Numlen%=4 
@Number_entry 
TS?" "+Pnums 
1 


For N%=1 To 2 
@Cclear_middle 
@Show_cmd 
Cstr$="Position "+StrS(N%)+" : " 
Print At(40-Int(Len(Cstr$)/2),Ytexte):Cstr$ 
Inc Ytext% 
Print At(23,Ytext%);Lat_str$; 
@Lat_check 
t 
Inc Ytext% 
Ee Ytext*):Long str$; 
@Long_check 
t 


TS=TS+" "+Uppers (Та65 E AA izÜnperəo (Long$) 
Ytext%=Ytext%-2 
Next N% 


@Cclear_middle 
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@Show_cmd 

Alert 29 Selects ип ЗИМӘРЕЕО TIME Commande! 4 

| 

If A=1 
T$=T$+" SPEED" 
(i5peed entry 
(STC. choice 

Endif 

| 

If A-2? 
@Time_entry 

Endif 

1 

Clr A 

Return 


i AIRCRFT Flt Cmds sub-menu item 
Procedure Aattach 
@Show_cmd 
Cstr$2",..to collective flight name ee 
Print At(37-Int(Len(Cstr$)/2), ,Ytext%);Cstr$; 
Form Input 5,F1$ 
TS=TS+" "+Uppers(Fi$) 
( 


EShow_cmd 
Alert 2," select ... w 0," EEADER MEMBER TA 
| 
1Е А=1 
TS=TS+" LEADER"! 
Endif 
| 
AZ 
TS=TS$+" MEMBER" 
Виста 
| 
@Cclear_middle 
@Tc_choice 
Clr A 
Return 
| 


AIRCRFT Flt Cmds sub-menu item 
Procedure Bbarrier 

@Show_cmd 

CstrS=UFrom position..." 

Print At(40-Int(Len(Cstr$)/2),Ytext%);Cstr$ 

Inc Ytext% 

Inc Ytext% 

Print At(23,Ytext%) ;Lat_str$; 

@Lat_check 

1 

Inc Ytext% 

Print At(23,Ytext%);Long_str$; 
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GLong. check 
TS=TS+" 1 Ppprero(LatŞ)?" "+Uppers (Long$) +" " 
1 


@Cclear_middle 
@Show_cmd 
@Bearing_entry 

Inc Ytext% 
@Distance_entry 

1 

GCclear. middle 

(Show, cmd 

и :.“Using? " 

Print At(40-Int(Len(Cstr$)/2),Ytext?2);Cstr$; 
Roma Input 5,F1$ 
TS=TS+" "+Upper$(FiS$) 
| 


GCclear middle 

65hov. cmd 

etr S= Spacing? " 

e At(40-Int(Len(Cstr$)/2), Ytext%);Cstr$ 
Bic ytext% 

Inc Ytext% 

@Distance_entry 

1 


ME Ytext% 
GTc choice 
Return 
| 
AIRCRFT Flt Cmds sub-menu item 
Procedure Cchaff 
6Shov cmd 
Cstr$="Barrier" 
Print At(40-Int(Len(Cstr$)/2), Ytext%);Cstr$ 
Inc Ytext% 
@Minute_entry 
1 
Inc Ytext% 
(Tc choice 
Кетити 


AIRCRFT Flt Cmds sub-menu item 
Procedure Ccover 

@Show_cmd 

Cstr$="Which track number? " 

Print At(37-Int(Len(Cstr$)/2),Ytext%) ;Cstr$; 

@Track_entry 

1 

@Show_cmd 

Alert 2," select ... "3, "DISTANCE TIME continue", ,A 


If Acı 


ps 


Inc Ytext% 
(Distance, entry 
@Tc_choice 

Ee der 

I 

If A=2 
@Time_entry 

Endif 

t 

Clr A 


Return 
1 


AIRCRFT Flt Cmds sub-menu item 
Procedure Ddeploy 


6Shov cmd 
Alert 2," Selec: "0," “BUOY “VERE” 
i 
If A=1 
Ts=TS+'"BUOY " 
@Show_cmd 
Cstr$-"Buoy name: " 
Print At(37-Int(Len(Cstr$)/2) Ytext%);Cstr$; 
Porm Input Sini. 
TS=T$+Upper$(F1$) 
Endi 7 
t 
If A=2 
T$=T$+"WIRE" 
@Show_cmd 
6Time entry 
Endif 
t 
Clr A 


Return 
t 


! AIRCRFT Flt Cmds sub-menu item 
Procedure Rreconn 


@Show_cmd 

Mtxt$=" "4 T$ 

Alert 2,MtxtSt"... ".Ü, "rac # Base" A 
If A=1 


Cstr$="Enter track number (ie, AB1234): " 
Print At(37-Int(Len(Cstr$)/2) Ytext%);Cstr$; 
(Track, entry 

IINE 

t 

If A=2 
TS- TSIT BASENI 
@Show_cmd 
Cstr$=" Base name: " 
Print At(37-Int(Len(Cstr$)/2),Ytext%) ;Cstr$; 
Form Input oTr 
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m Upper$(Fi$) 
@Show_cmd 
@Time_entry 
Endif 
Clr A 
Return 
1 
i AIRCRFT Flt Cmds sub-menu item 
Procedure Rrefuel 
GShow_cmd 
Cstr$="Refueler name: " 
5“) .7-intfLen(Cstr$)/2),Ytexte):Cstr$: 
Horm Input 5,F1$ 
Tş-T$-Upper$(Fi$) 
@Show_cma 
@Time_entry 
Return 
| 
AIRCRFT Flt Cmds sub-menu item 
Procedure Tturn 
6Shov cmd 
@Course_entry 
Show. cmd 
GTime entry 
Return 
| 
AIRCRFT Flt Cmds REPORT sub-menu item 
Procedure Aair 
(3Show. cmd 
Cstr$="REPORT Air tracks every..." 
Print At(38-Int(Len(Cstr$)/2), Ytext%);Cstr$; 
@Minute_entry 
EY text% 
(Tc choice 
Return 
| 
AIRCRFT Flt Cmds REPORT sub-menu item 
Procedure Eesm 
6Shov cmd 
Cstr$="REPORT ESM tracks every..." 
100777:  Inet(Len(Cstr$)/2),Ytexte):Cstr$: 
Minute. entry 
Inc Ytext% 
@Tc_choice 
Return 
| 
AIRCRFT Flt Cmds REPORT sub-menu item 
Procedure Oon 
EShow_cma 
CstrS=""REPORT On circuit number" 
5 520 Estos" . " 
Print At(37-Int(Len(Cstr$)/2), Ytext%);Cstr2$; 
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Lolim%=1 
Hilim%=9999 
Numlen%=4 
@Number_entry 
TS=TS+Pnums 
6Shov cmd 
| 
CstrS="REPORT On circuit number "'+Pnums+" or : " 
Print At(37-Int(Len(Cstr$)/2),Ytext$);Cstr$; 
Lolim%= 
Hilim%=9999 
Numlen%=4 
@Number_entry 
1712727177”? 
@Show_cmd 
| 
Alert 2," Vıolate EİHGO1:77070770 NOURA 
If A=1 
TS=TS+" YES" 
Endif 
If A=2 
TS=T$+" NO" 
Endif 
CIDA 
| 
Inc Ytext% 
@Tc_choice 
Return 
| 
AIRCRFT Flt Cmds REPORT sub-menu item 
Procedure Pposition 
@Show_cmd 
CstrS="REPORT Position & logistics every..." 
Print At(4l-Int(Len(Cstrs)/2) ,Ytext%);Cstrs 
@Minute_entry 
Inc Ytext% 
@Tc_choice 
Return 
| 
AIRCRFT Flt Cmds REPORT sub-menu item 
Procedure Ssurface 
@Show_cmd 
Cstr$="REPORT Surface tracks every..." 
Print At(41-Int(Len(Cstr$)/2), Ytext%);Cstr$ 
Minute, entry 
Return 
| 
i AIRCRFT Flt Cmds REPORT sub-menu item 
Procedure Tttime 
@Show_cmd 
Print At(26,Ytext%});"Enter start minute (1-999): u; 
Lolim%=1 
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Hilim%=999 
Numlen%=3 
(Number entry 
TS=TS+"TIME "+Pnums 
Return 
1 
AIRCRFT Flt Cmds REPORT sub-menu item 
Procedure Uusing 
@Show_cmd 
Cstr$="REPORT Using what policy?: " 
Aint At(37-Int(Lení(Cstr$)/2) ,Ytext%);Cstr$; 
Horm Input 5,F1S 
TS=TS+UpperS$(FiS) 
me) Ytext% 
@Tc_choice 
5 urn 
l 
l COMMS sub-menu item 
Procedure Ccommtext 
@Show_cmd 
Cstr$-"Using what path?: " 
Print At(37-Int(Len(Cstr$)/2),Ytext%);Cstrs; 
mem input 5,F1$ 
m "-UpperşŞ(Fi$)"" " 
t 


@Show_cmd 

GCclear middle 

Cstr$-'"To which receiver?: " 

55:00 At(37-Int(Len(Cstrs)/2),Ytext%);Cstrs; 
Hom input 5,Fış 

Ee per GES AA " 

1 


Ccomtxt: 
6Shov cmd 
(Cclear middle 
AZ, Another receiver? ",0,'' Yes No",A 
If A=1 Then 
Cstrs="Enter receiver name. " 
Erin £6037-Int(fLen(Cstr$)/2),Ytexte):Cstr$: 
Form Input 5,Fis 
TS=TSt+tUpperS(Fis)+" " 
Soto Ccomtxt 
Endif 
Clr A 
1%=8 
(Text entry !idt common Comms text entry 
Return 
1 
COMMS sub-menu item 
Procedure Eembark 
(iShov, cmd 
Cstr$="Enter force name: " 


ız 


Print At(37-int(Len(Cstr)/Z2/:7662570 
FOBIA put ru 

T$=T$+Uppers$(Fi$) 

1 


@Show_cmd 
Alert 2," On what platform? "0," Orange Blue continue",A 
If A=1 Then 
TS=TS+'' ORANGE " 
Endif 
If A=2 Then 
Toot BLUE T 
Endif 
Clr A 
@Show_cmd 
@Cclear_middle 
Cstrs="Enter view number: " 
Print At(37-Int(Len(Cstr$)/2),Ytext%) ;Cstr$; 
FORD EA to 
TS=TS+Upper$(Fi5) 
Return 
idir itir iki miri rir minini RN 
| END of Program 
| АЕА e E ААБ Н ia A AAA AAA AAA AAA ART AA 


APPENDIX B 


RESA Interface Program User's Guide 

This appendix iS a Simple guide to facilitate use of the 
RESA Interface Program (RIP). To effectively use this guide, 
some familiarity with RESA is necessary, as no attempt to 
define RESA commands is made herein. 

The starting screen display will provide the Main Menu, 
one of the three primary control menus. The other two are: 
Force Menu A and Force Menu B. Access to each primary menu 
is available from each other primary menu using the "new 


mem menu bar selection. 


Main? MEET 351415 GRAPHICS  COMMS  UMPIRE 


mo Oot phe Gët phe phe 064 Dho 644 Ome vor Dhe phe phe BOO Gee Ubo 004 re pi pho pubs Pda 004 obo 440 phe obo ¿da eta Oot Dhe Oot OOF HOR HOE GbE OFF Goo phe ФФФ4 phe Gët Oma oot Gët sod Gët Dhe Gët Dhe fre 144 mhe Dhe Doe 


FORCE Menu À > haneuvers | sensors | engagements 


4 whe pbo 040 000 Oee Gbe mhe Pos 440 ott Oto Ooo Bee Géi Ote BOO Cfo ase Sen Oma veo 0000 Oro ont $094 Géi Bee 140 $04 044 Got ФФ4 phe Oo mhe Gët mhe 00d 006 phe ms dan us oot Dhe 004 004 poo ALI mhe 6060 644 9004 


FORCE Menu B > aircraft | submarines | force COMMS 


phe Gte pbe phe ФФ4 phe Dhe 044 6644 0644 Bb) DO4 woe moe ФФ4 904 Dhe $94 0. 0. $49 ire whe 740 004 Géi éi Gët Géi Dhe phe DOO OOt OOt phe pho Gët E E M NM EIM NI 


! 


CANCEL command | | EXECUTE Command 






MIRO 


Orders are "built" by successively selecting menu 
headings and using the "mouse" to select desired commands. 
As commands are selected, the RIP may ask for additional data 
or second-level commands. Appropriate secondary/tertiary 


menus will be displayed as needed. 


Weapons? MEMZ TIGHT 


Air 
Surface 
Submarine 
411 













Enemy 
NUE PRC 
(0090013 0001 









CANCEL command = ¿po | EXECUTE conmand | 


(FOR KITTY WEAPONS FREE CONVENTIONAL 
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Make a specific choice from the screen or a secondary 
menu, or to use the keyboard to enter alpha-numeric 
characters. Considerable error-checking is performed if the 


keyboard is used. 


Force fi new Menu FOR xxx MANEUVERS SENSORS = ENGAGE 


FOR KITTY PROCEED 


Enter course (8-359* True): 23 
Enter distance or mi (1-9999 nmi): 5678 
Enter speed (1-9999 kts): 888 






a ERECUIE command 
(FOR KITTY PROCEED 234 5678 883 m 


A s^ : b d ə ıı HL a T o. “ир corr" Cr C E 


1821 


If a command is supposed to be preceded by a force 


addressee, an "alert box" will appear and request it. 


Force Bò new Menu FOR xxx MEGAN SUBMRINE COMMS 


This command requires 
an addressee (unit), 


Fa 


————— 
CANE ca ERECUTE command 
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As they are being built, orders are displayed in a 
command box at the bottom of the screen. When an order is 
5: Cıcally correct, the user is given the choice to 
Execute or Cancel it. po ocutiopnoemeccueellation of non- 


completed orders is not allowed. 


Main 9 new Menu ASTAB GRAPHICS COMMS — UMPIRE 


Uo ECOL ә, лә... EXECUTE command | 


P 





CANCEL command | | E n EXECUTE command | 


| 


TZ 


The following are examples of what commands are displayed 


whenever certain menu bar headings are selected. 


I. MAIN Menu Selections 


Hain Y new Menu MIC GRAPHICS — COMMS UMPIRE 


pe 
Classify 
CPA 


Designate 

rop 
Print 
Show 









CANCEL command | гә EE | EXECUTE command | 


Hain) new Menu  ASTAB MELUM (0115 UMPIRE 


Mark track 
Mark иә 
Unmark track 
Unmark bearing 
Place 

Cancel 


CANCEL command EXECUTE command 


инин 7-0 
D 
D 
Pë R - 
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Plot > new Menu Фриз 8 


CANCEL command 


Main 9 new Menu 


CANCEL command 


vn 
Boundaries 
dn 


Regions 
Rivers 





19185 GRAPHICS 


ə 


ERECUTE command 


4 
` 
` 
a 
- 
. 

- 4 
H Kee 4: ə a 


BM UMPIRE 


Inform 
Intell 
Message 


EALCUTE command | 


* 
A 
Ba, 


Main) new Menu ASTAB GRAPHICS COMMS ilg d 
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11. FORCE Menu A Selections 


Force A) — new Menu Miu TEL o CMANEUUERS — SENSORS = ENGAGE 


B. 


CANCEL command dı e EALLUTE command 
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Force Ad neu Hen FOR va WISS SENSORS ENGAGE 














USE (plan) 
Execute (plan) 
Enter Orders 

Pending Orders 
Cancel 





CANCEL comand ERECUTE command 





Force 49 new Menu FOR xxx MANEUVERS BERS ENGAGE 





CANCEL command EAECUTE command 


D 
= 
n H M - 2 E P" 
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Force A> = mew Menu FOR xxx MANEUVERS  SENSORS M4 114 


Weapons 
Fire 
Launch 
Take 


| 


E —— — EXECUTE command | 
CANCEL command | EXECUTE conmand | 






Cruise > wmode 


WAYPOINT 1 125 1542 


V Another waypoint? 
| 


te] Ch 


CANCEL command FOR KITTY EXECUTE command 


FOR KITTY LAUNCH CRUISE 2 REETS TLÁM AT PETRO 





III. FORCE Menu B Selections 


Force Bò new Hen FOR xxx MUMA SUBMRINE COMMS 
‘Launch 
Flight Cnds 
Alert 







Recover 


CANCEL command ERECUTE command 


mou 


Force B neu Menu FOR xxx EDEN SUPHRINE — COMMO 


LOAD 12 HRPON 


Enter the equipment LOAD 
(up to 8 1tens), 





CANCEL command RO | FOR KITTY EAECUTE command | 
FOF KITTY LAUNCH 11 Flan TEAL 345 450 20009 | 





Fit (do MUR 1-5 5-/ 


Activate 
Altitude 
Attach 
Barrier 
Bingo 
Cease 
Chaff 
Course 
Cover 





CANCEL command | "DUT EXECUTE conmand 
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Force B) new Menu FOR xxx AIRCRET BEC COMMS 


Depth 
Surf ace 
Periscope 
Fire 
Mode 
Mast 
Deploy 
Retrieve 










CANCEL command | a EALCUTE command 


Force Bò new Menu FOR xxx  AIRCRFT  SUBMRIME ФД) NE 


Commtext 
Embark 
Report 
Circuit 






CANCEL command = | EAECUTE command 
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